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

PerlMonks parthenogenetically spawned by Tim Vroom.
PerlMonks somehow became entangled with The Perl Foundation.
Beefy Boxes and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.