or, to avoid warnings about the occasional undefs in your arg list:

sub min {
    my $min;
    for (@_) {
        next unless defined;
        $min = $_ if $_ < $min
    }
    $min
}
[download]