Select Code to Download

@result = map { $_->[1] } 
            sort { $a->[0] <=> $b->[0] }
              map { [ foozle($_), $_ ] } 
                @list;