if($_ =~ /^Product\sname:\s(\w.*)/) {
                        $product[$prodCount] =$1;
                        #print "$1<br>\n";

                }

                if($_ =~ /^Option\sName:\s(\w.*)/) {
                        $product[$prodCount][$optionPos] = $1;


for my $x (0..$#product) {
    for my $y (0..$#{$product[$x]}) {
        print "$product[$x][$y]<br>\n";#
        $products = join(" " , $products,$product[$x][$y]);
    }
}


##</code><code>##

$product[$x] is the Product Name
$product[$x][$y] is the products option list(color, size etc)
##</code><code>##

Can't use string ("Promo - Product ID 1
") as an ARRAY ref while "strict refs" in use at modules/productParser line 77.

##</code><code>##

Line 77 is $product[$prodCount][$optionPos] = $1;