#!/usr/bin/perl
while ( <DATA> ) {
    chomp;
    my( $Nachname, $Vorname, $Telefon ) = split /,/;
    $sth->execute( $Nachname, $Vorname, $Telefon );
}