$ perl -w -MData::Dumper -e '
> @old = ( "10.5 AA", "9 AC", "2 BB");  
> @new = do {local $^W = 0; sort {$b <=> $a} @old}; 
> print Dumper \@new;'
$VAR1 = [
          '10.5 AA',
          '9 AC',
          '2 BB'
        ];
$