Select Code to Download

sub locationscore {
  my $self = shift;
...
  }
  $self->normalizescores(\%locations, ...);
}

$locations{ $_->[0] } = 1_000_000 for (@$rows);