Select Code to Download

#!/usr/bin/perl -w

use Algorithm::Numerical::Shuffle qw(shuffle);
...
  $max = $max < $_ ? $_ : $max for @_;
  return $max;
}