Re^2: variable declaration question

print(my $foo = (1, 2, 3), "\n");
print(my ($foo) = (1, 2, 3), "\n");
__END__
3
1
[download]

Ah, I see. The line:

print(my $foo = (1, 2, 3), "\n");
[download]

is a convenient way of assigning the last element of an array to a variable.