Select Code to Download

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

#! /usr/bin/perl

...
@pro=splice (@products,0,8);
print  "@pro\n";
}