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