# untested...
%list = (
   RUBYKAT=>15.97 ,
   SAPER=>15.78 ,
   PETDANCE=>15.5 ,
   AMBS=>15.5 ,
   BARBIE=>15.45 ,
);
sub sortDesc {
   $list{$b} <=> $list{$a};
}
foreach $key (sort sortDesc (keys(%list))) {
   print "$list{$key} \t $key \n";
}