Select Code to Download

my $cache = cacheMaxIntensity(\%massint);

...
  # return a reference to the cache
  return \%cache;
}

my $max_I = maxIntensity($cache, $mass);

...
  my ($c, $m) = @_;
  return $c->{sprintf "%.1f", $m}[0];
}