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