for $x(1...3){
     for$y(1...3){
     $pro=$x ** $y;
     push @products, $pro;
     }
}

##</code><code>##

#! /usr/bin/perl

for $x(1...8){
for (1...8){
$y=$x*$_;
push @products,$y;
}
print "\n";
@pro=splice (@products,0,8);
print  "@pro\n";
}