open (FILE, "Textdatei");
%hash = <FILE>;
close (FILE);

($Vorname, $Nachname) = split/\s+/, $line;
$hash{$Vorname} = $Nachname;
chomp (%hash);

open (OUT, ">neu");
while ( ($Vorname, $Nachname) = each %hash) {
print $key => $value\n";
}
close OUT