#!/usr/bin/env perl
use warnings;
use strict;
use DBI;

my $phone_book = [ [ qw( name number ) ],[ 'Kroner',123456789 ],[ 'Holler',[ 'Mühßig',[ 'Singer',[ 'Maurer',];

my $dbh = DBI->connect( "DBI:CSV:",{ RaiseError => 1 } );
$dbh->do( qq{ CREATE TEMP TABLE phone_book AS IMPORT( ? ) },{},$phone_book );

my $sth = $dbh->prepare( qq{ SELECT name,number FROM phone_book } );
$sth->execute;

my $array_ref = $sth->fetchall_arrayref();

for my $row ( @$array_ref ) {
    printf "%9s %10s\n",@$row;
}

# OUTPUT:

#   Kroner  123456789
#   Holler  123456789
# Mühßig  123456789
#   Singer  123456789
#   Maurer  123456789