Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

...
  }
print $tosort "$name\t$value\n"; # be sure to print last one
close $tosort or die;

Select or download this

blah    2300
word    2700
bar     3500
foo     7300