#!/usr/bin/perl
use 5.010;
use warnings;
use strict;
use DBI;
use utf8;

my $table = 'Table_test';


open my $fh, '>:encoding(utf8)', $table or die $!;
while ( my $row = <DATA> ) {
    print $fh $row;
}
close $fh or die $!;



my $dbh = DBI->connect( "DBI:CSV:" ); 

my $sth = $dbh->prepare( "SELECT * FROM $table ORDER BY nachname" );
$sth->execute();

while ( my $hr = $sth->fetchrow_hashref() ) {
    say "$hr->{vorname} $hr->{nachname} $hr->{telefon}";
}

$dbh->disconnect;


__DATA__
nachname,vorname,telefon
Kunz,Helga,123456789
Maier,Anton,987654321
Müller,Franz,897987908