my @list = qw/ 7 5 2 2 /;
my $prod = shift @list;
$prod *= $_ foreach @list;