Just in the name of Huffman coding: couldn't  my @rev = reverse $f.readline() be made indentical to my @rev = - $f ? That would be the penultimate step in Perl golf...:-)