Volviendo valor de foreach en subrutinas

Question

Considere siguiente ejemplo sencillo:

#!perl -w 
use strict; 

sub max { 
    my ($a, $b) = @_; 
    if ($a > $b) { $a } 
    else { $b } 
} 

sub total { 
    my $sum = 0; 
    foreach (@_) { 
     $sum += $_; 
    } 
    # $sum; # commented intentionally 
} 

print max(1, 5) . "\n"; # returns 5 
print total(qw{ 1 3 5 7 9 }) . "\n"; 

Según Learning Perl (página 66):

“La última expresión evaluada” significa en realidad la última expresión que Perl evalúa, en lugar de la última declaración en la subrutina.

Puede alguien explicar por qué no vuelve total25 directamente de foreach (al igual que if)? Yo añadido adicional $sum como:

foreach (@_) { 
    $sum += $_; 
    $sum; 
} 

y tengo tal mensaje de advertencia:

uso inútil de la variable privada en el marco vacío en ...

uso explícito de return Sin embargo las obras como se esperaba:

foreach (@_) { 
    return $sum += $_; # returns 1 
} 

Answer 1

De perlsub:

Si no se encuentra ninguna devolución y si la última afirmación es una expresión, se devuelve su valor . Si la última instrucción es una estructura de control de bucle como un foreach o un rato, el valor devuelto no se especifica.