Select Code to Download

my %results;
foreach (1 .. 40) {
    my $hit = int rand(30);
...
    my ($hit, $id, $data) = @$_;
    print "$hit $id $data\n";
}