1.dat
1
10
9
8
9
6

2.dat
5
48
39
50
46
45

3.dat
4
40
39
30
36
35


##</code><code>##

  return sort { $a->{$key} <=> $b->{$key} } @$aref;

##</code><code>##

foreach my $c( &sortby($sort, \@all_hashes) ){
  print "<tr><td>$c->{'id'}</td>\n<td>$c->{'info'}</td>\n<td>$c->{'graphics'}</td>\n<td>$c->{'friendly'}</td>\n<td>$c->{'techno'}</td>\n<td>$c->{'entertain'}</td>\n<td>$c->{'average'}</td>\n<td>$c->{'hits'}</td>\n</tr>";
}