sub minimum {
  my ($min) = sort ....;
  return $min;
}