use List::Util qw/reduce/;
print reduce { $_[0] * $_[1] } 1..6;
__END__
Use of uninitialized value in multiplication (*) at /home/lanx/B/PL/PM/ScopeListUtils.pl line 23.
...