sub min {
my($min) = shift;

foreach (@_) {
$min = $_ if $min > $_;
}
$min;
}