my @a = qw( a b );
my @b = map { my $x = $_;
              map { $x . $_ } @a;
            } @a;