Select Code to Download

#! /usr/local/bin/perl -w

...
my $subname= $sorter[$offset];
print "$_\n" for sort $subname @list;