Select Code to Download

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