open(DATA, 'hits.dat') or die "Can't open hits.dat: $!\n";
my @pages;

push @pages, [split /:/] while <DATA>;

my @sorted = sort { $b[2] <=> $a[2] } @pages;