my @foo = (2, 4, 8);
foreach my $num (@foo) {
    $num *= 2;
}
$, = ",";print @foo;print "\n";