use warnings;
use strict;


chomp ($a = <STDIN>);
chomp ($b = <STDIN>);

$maxof3 = &max3 ($a,$b);
print "max3 is: ".$maxof3."\n";

sub max3{

	my($max_so_far) = shift @_;	
	foreach (@_){
		if($_ > $max_so_far){
			$max_so_far = $_;
		}
	}
	$max_so_far;
}

程序里用了use strict之后，就必须用our或者my声明变量。