my @output = map {$_->[0]}              # extract just the original
                                        # value from the tuple
             sort {$a->[1] <=> $b->[1]} # sort based on the
                                        # computed value
             map {[$_, some_func($_)]}  # create (value, computed)
                                        # tuples
             @input;