my @sorted = sort {
  $$a[1] <=> $$b[1];  
} map {
  my $index = $_;
  my $entry = $data[$index];
  my @scores = sort { $$entry{$b} <=> $$entry{$a} keys %$entry;
  [ $index,
    @scores,
    (map { $$entry{$_} } @scores),
  ]
} 0 .. $#data;
[download]