sub buildFileHash {
    my $root = shift;
    my %filesBySize;
    find {
        ...
        push @{ $filesBySize{ -s() } } }, $File::Find::name;
        ...
    } $root;
    \%fileBySize;
}