[plug] [Perl] sorting arrays based on scalar value - Golf any one?

[Matthew Robinson]

Carl Gherardi wrote:
> Borrowing from Tony
> 
> Assume perl called with -p option
> 
> perl -p                        03
> sub resort{                    11
> open O,">@_[1]";               16
> print O sort{$b<=>$a}<>        23
> }
>                              -----
>                                53
> 

This doesn't work for me!  Can you explain how I should be calling it to 
get the same results as the previous entries.

Matt

-- 
print map{s&^(.)&\U\1&&&$_}split$,=$",(`$^Xdoc$,-qj`=~m&"(.*)"&)[0].$/