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