Select Code to Download

my %results;
while(my($score, $url) = getnextpair()) {
  push @{$results{$score}}, $url;
}

my $url = $results{$score}->[0]

my @urls = @{$results{$score}}