my $indexes = join(",",@arrofIndices);
my $prodKey = join("|",(split/\|/,$$prodRef[$a])[$indexes]);