use warnings;
#use strict;

print min(qw(5 3 9 8)), "\n";

sub min {
    my (@num);
    @num = @_;
    $min = $num[0];
    foreach $i (@num) {
        if ( $i < $min ) {
            $min = $i;
        }
    }
    return $min;
}

__END__

3