sub min {
    my $min = shift;
    foreach (@_) {
        $_ = $min if $_ < $min;
    }
    return $min;
}