while (my $line = <DATA>) {
    chomp $line;
    my( $Nachname, $Vorname, $Telefon ) = split /,/, $line;
    $sth->execute( $Nachname, $Vorname, $Telefon );
}