I'd like to see a safe version of foreach, in analogous relationship with List::MoreUtils::apply and map.

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

applyfor() is a bad name, but I'm not sure what I'd call it. Maybe 'foreachcopy' would be good.