Select Code to Download

my $flag;
my $x = 1;
...
        print "counted $counter lines for file $dir\n";
    return %filehash;
}

use Data::Compare;
use Data::Dumper;
...
        print "counted $counter lines for file $dir\n";
    return \%filehash;
}