#!/usr/local/bin/perl
use strict;
use warnings;
 
sub min {
    my $min = shift; # @_
    for (@_) {
        $min = $_ if $_ > $min;
    }
    $min;
}
 
print min(12, 8, 100, 200, 300, 23, 38);