foreach (@var) 
{
  ($name,$score) = split; # get score
  $score{$_} = $score; # record it
}
print sort {
             $score{$a} <=> $score{$b};
           }
#@var;