use warnings;
use strict;

use List::Util qw/reduce/;
{
    no warnings qw(once);
    print reduce { $a * $b } 1..6;
}