「初めてのPerl（3版）」で勉強しています。

P69にて
“サブルーチンの中で最後に行われた計算の結果が、自動的に戻り値になる”
と書かれていますが、以下のような処理を行っても値が戻りません。

sub max {
my($max_so_far) = shift @_;
foreach (@_) {
if ($_ > $max_so_far) { $max_so_far = $_; }
$max_so_far; # ここだと値が返らない。
}
# $max_so_far; # ここだと値が返る。
}
$maximum = &max(1,2);
print "maximum number : $maximum";

sub maxで、最後に行われる計算は、
コメントアウトしていない$max_so_far;だと思うのですが、
間違っていますでしょうか？