my $name= "Harry";

sub nachname {
    my $vor = $_[0];
    my $index =0;
    foreach my $elem ($multiarray [1]){
        if ($vor=~$elem) { 
            return $index;}
        $index++;
    }
}            
my $num =&nachname($name);
my $ausgabe =$multiarray[$num];
print "Gefunden: $ausgabe\n";