while (my ($k,$v) = each %byFile ) {
        print "$k\t=>$v\n";
}