my @foo = 1..10;
applyfor (@foo) {
    $_ *= 2;     # Does not change @foo;
    print "$_\n";   
}
foreach ( @foo ) {
    $_ *= 2;     # Changes @foo 
    print "$_\n";
}