Select Code to Download

@arr = qw/Foo Bar Blaz/;
foreach my $ele ( @arr ) {
...
  do_something ( $ele ) ;
}
print "@arr"; # I got 'xFoo xBar xBlaz'

@arr = qw/Foo Bar Blaz/;
foreach my $ele ( @arr ) {
...
  do_something ( $copy ) ;
}
print "@arr"; # I got 'Foo Bar Blaz'