Help for this page
$ perl -nE ' chomp; ... a|b|c a|b|d a|b|e
my @z = split /,/, $x[$y]; for (@z) {
for (split /,/, $x[$y]) {