Select Code to Download

*gSort = '';
my $sortname = 'gSort';
...
foreach my $t (sort $sort @data) {
      print "$t\n";
}