Select Code to Download

use strict;
use warnings;
...
    my %hash = map { $_ => 1 } @_;
    keys %hash == 1 ? 1 : 0;
}

push @{ $dirLines{$curDir} }, $numLines;

$VAR1 = {
          './test/test bbb' => [
...
                   3
                 ]
        };

for my $dir ( sort keys %dirLines ) {
    my $sameResults = sameArrayElements( @{ $dirLines{$dir} } );

...

The files in directory '.' do not have the same number of lines.
The files in directory './test' do not have the same number of lines.
The files in directory './test/test bbb' do have the same number of li
+nes.