Re^3: I think Perl ruined me as a programmer

The function should be:

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

In Section Meditations