map { print "jo" if $_ =~ /foo/ } @bar;
@new = map { "$_" if $_ =~ /foo/ } @bar;