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