while (@array=each(%directories))               #aufruf des Hash in ein array
            {
            if ($array[0] eq $ARGV[0])                  #wenn abgearbeitetes array gleich der Eingabe
                {
                print "$array[1]\n";                    #print Wert des arrays
                }
            }    
        }

if ( exists $directories{$ARGV[0]} ) {
    my @dirs = split /\s+/, $directories{$ARGV[0]};
    for my $dir ( @dirs ) {
        print $dir,"\n" if -d $dir;
    }
}