sub compute_bonuses {
  return +{
    map {
      $_[0]->{$_}{sales} > 30
        ? ($_ => sprintf '%.02f', (100*$_[0]->{$_}{salary}/500))
        : ()
    }
    keys %{$_[0]},
  };
}