note
SuicideJunkie
Here's one case where it won't be zero (undef instead), but it isn't very useful.
<c>>perl -e "use warnings; my @nums = (); my $prod; $prod *= $_ for @nums; print $prod"
Use of uninitialized value $prod in print at -e line 1.</c>
1222125
1222130