main::max(_.pl:4): if ($_ > $max_so_far) { $max_so_far = $_; }
DB<1> s
main::max(_.pl:5): $max_so_far; # ここだと値が返らない。
DB<1> s
main::max(_.pl:3): foreach (@_) {
DB<1> s
main::(_.pl:10): print "maximum number : $maximum\n";

ほら、foreach (@_) が最後じゃん