my @sorted = map  { $_->[0] }              # Line 4
             sort { $a->[1] cmp $b->[1] }  # Line 3
             map  { [ $_, $_->[2] ] }      # Line 2
             @data;                        # Line 1