Select Code to Download

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;

my $start = param('start');
my $display = 20;

print map { "@$_\n" } splice @sorted, $start, $display);;