use warnings; use strict; use List::Util qw/reduce/; { no warnings qw(once); print reduce { $a * $b } 1..6; }
Update: added "once"
Update: Refer to the following discussion: https://rt.cpan.org/Public/Bug/Display.html?id=65629
In reply to Re: Name "main::a" used only once: possible typo
by toolic
in thread Name "main::a" used only once: possible typo
by szabgab
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |