for (split /,/, $x[$y]) {