Select Code to Download

sub best {
  my $d = shift;
  my ($best_idx) = sort { $d->[$b] <=> $d->[$a] } 0 .. $#$d;
  return $best_idx;
}

my $idx = best(\@numbers);
my $other = $data[$idx];