There's also the Quantum::Superpositions approach:

sub min { eigenstates( any(@_) <= all(@_) ) }

sub max { eigenstates( any(@_) >= all(@_) ) }
[download]

In the real world, I'd use List::Util::max; if I wrote my own, it'd be this small variation on solutions above:

sub max {
  my $max = shift;
  $max = $max > $_ ? $max : $_ for @_;
  return $max
}
[download]