reduce { no warnings 'once'; $a * $b } 1 .. 6;

##</code><code>##

reduce { our ( $a, $b ); $a * $b } 1 .. 6;