Select Code to Download

@sorted = map  { $_->[0] }
          sort { $a->[1] cmp $b->[1] }
          map  { [$_, foo($_)] }
               @unsorted;

sub foo($) { $_[0]->[1] . "." . $_[0]->[3]; }