my @sorted_data = 
    map   { $_->[1] }
    sort  { $a->[0] <=> $b->[0] }
    map   {[ do_something($_), $_ ]} 
    @unsorted_data;