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