Select Code to Download

my $least = min(keys %hash);
my $largest = max(keys %hash);

sub max {
  my $max = shift;
  $max = ($max < $_) ? $_ : $max foreach @_;
  return $max;
}

sub reduce (&@) {
  my $op = shift;
...
  }
  $A;
}

sub max {
  reduce {$a > $b ? $a : $b } @_;
}

sub sum {
  reduce {$a + $b} @_;
}