open my $fh, "<", "/root/Desktop/file1.txt";
my %verzeichnis;
while (my $line = <$fh>) {
    $line =~ /RegEx/i;
    my $telefonnummer = $1;
    my $name = $2;
    $verzeichnis{lc $name} = $telefonnummer;
}
close $fh;