$ perl -Mstrict -Mwarnings -E ' use List::Util qw/reduce sum/; $a || $b || 1; say reduce { $a * $b } 1..6; say sum 1..6; ' 720 21