Select Code to Download

open my $fh, "<", "/root/Desktop/file1.txt";
my %verzeichnis;
...
    $verzeichnis{lc $name} = $telefonnummer;
}
close $fh;

open my $fh2, "<", "/root/Desktop/file2.txt";
open my $new, ">", "/root/Desktop/file2.new";
...
}
close $fh2;
close $new;