#Search Results
foreach (1..40){
    my $hit = int rand(30);
    my $id = int rand(1000);
    push @results, "$hit:$id";
}
@search_results = sort { $b <=> $a } @results;


#Records
my $Record;
foreach (0..999){
    my $data = int rand(100);
#    push @ids, "$_:$data";
    $Record->{$_} = $data;
}

#Display

foreach (@results){
    my($hit,$id) = split /:/;
    my $data = $Record->{$id};
    print "$hit $id $data\n";
}