foreach my $i ( @list ) {
   $i =~ s/foo/bar/g;
}
go_do_something(@list);