use List::Util qw[ reduce ];

my @a = 2..6;
print reduce{ $a*=$b } @a;

720