http://www.perlmonks.org?node_id=1021946


in reply to Re: Name "main::a" used only once: possible typo
in thread Name "main::a" used only once: possible typo

or
reduce { our $a * our $b } 1 .. 6;