Help for this page

Select Code to Download

Select or download this

$ perl -Mwarnings -MData::Dumper -e '
> @old = ( "10.5 AA", "9 AC", "2 BB");  
> @new = do {no warnings q/numeric/; sort {$b <=> $a} @old}; 
...
          '2 BB'
        ];
$

Select or download this

$ perl -w -MData::Dumper -e '
> @old = ( "10.5 AA", "9 AC", "2 BB");  
...
          '2 BB'
        ];
$