Help for this page
#!/usr/local/bin/perl use strict; ... foreach(@sorted) { printf $sort_fh "$_\n"; }