#!/usr/bin/perl
use warnings;
use strict;

my @results;
for (1..40){
    my $hit = int rand(30);
    my $id = int rand(1000);
    push @results, [$hit, $id];
}

my @search_results = sort { $b->[0] <=> $a->[0] } @results;

print $_->[0], "\t", $_->[1], $/ for @search_results