#! /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";
}