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