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