Select Code to Download

#!/usr/bin/perl -w
use strict;
...
};

print Dumper %filesystem;

$hash{aaa}{bbb}{ccc}="ccC";
if(exists $hash{lc aAa}{lc bBB}{lc CCC}){
...
}else{
  print "not exists\n";
};