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