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

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