reduce { our $a * our $b } 1 .. 6; [download]
In reply to Re^2: Name "main::a" used only once: possible typo by ikegami in thread Name "main::a" used only once: possible typo by szabgab