>perl -e "use warnings; my @nums = (); my $prod; $prod *= $_ for @nums; print $prod" Use of uninitialized value $prod in print at -e line 1.