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]);
    }
}