Select Code to Download

my @uids = (0..9);
my @points = qw/1 3 2 5 10 3 2 1 3 0/;
...
foreach (sort { $hash{$b} <=> $hash{$a} } keys %hash) {
  print "$_: $hash{$_}\n";
}