map { my $x = $_;
    map { $x . $_ } @a;
} @a;