%people = ();
@list= ("Andy", "1995", "Sarah", "1990", "Sam", "1992"); 

$list[0]=keys %people; 
$list[1]=values people; 

print "sorting keys by value:\n"; 
foreach $name (sort {$people{$b}<=>$people{$a} }keys %people){ 
    print "brand: $name, points: $people{$name}\n"; 
}