Select Code to Download

#!/usr/bin/env perl    

...
    $heap->add("$next_line $fh_id");
  } 
}

bar    70
blah    69
...
life    42
word    81
yada    3