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

##</code><code>##

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

##</code><code>##

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