use strict; use warnings; use List::Util qw/reduce/; print reduce { $a * $b } 1..6;