This is perl 5, version 12, subversion 1 (v5.12.1) built for i686-linux

perl -wE'
@a = qw/ foo bar baz /;
@b = map { s/([a-z])/$1/ } @a;
say for @b;'
1
1
1