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

#Search Results
my @results;
push @results, [int rand(30), int rand(1000)] for (1..40);

#Records
my @Record;
push @Record, int rand(100) for (0..999);

#Display
print "hits\t ID\t Data\n";
for (sort { $b->[0] <=> $a->[0] } @results) {
    print "$_->[0] \t $_->[1] \t $Record[$_->[0]]\n";
}