Select Code to Download

#map BLOCK, LIST
#or something like
...
#or
#map EXPR, LIST   
@asciival=map(ord,@letters);

@origarray=('0 1 2','0 0 0','-3 -2 -1','10 11 12');
@sortedarray=
...
foreach(@sortedarray){
  print "$_\n";
}

@sortedarray=
 map{$_->[0]}
...
          #calculate $computedsortval
          [$_,$computedsortval];
       } @origarray;