Help for this page
#! /usr/local/bin/perl -w ... my $offset = shift || 0; print "$_\n" for sort {$sorter->[$offset]->()} @list;
#! /usr/local/bin/perl -w ... my $s = $sorter[shift || 0]; print "$_\n" for sort $s @list;