my @sets = map {
  my $x = $_; # Copy outer loop variable
  my @products = map { $x ** $_ } (1..3);
  \@products;
} (1..3);