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

sub double {
    $_[0] =  2*$_[0];  
    return $_[0];
}