Select Code to Download

@sortedarry = map  { $_ ->[0] }
              sort { $a->[1] cmp $b->[1] || $a->[2] <=> $b->[2] }
...
              @foo;

print "$_\n" foreach @sortedarry;