sub min_max (\@) {
  my $min = my $max = $_[0][0];
  for (@{ $_[0] }[1 .. $#{ $_} ]) {
    $_ < $min and $min = $_, next;
    $_ > $max and $max = $_;
  }
  return ($min,$max);
}