&min
print "$av\n";
print "$min\n";

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