use List::Util 'reduce';
my @a = ( 1, 2, 3, 4, 5 );

print reduce{ $a * $b } @a;

120