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

@a = (10, 5, 8, 2, 1, -4);
$min = min(@a);
print "min of @a is $min\n";