my @z = split /,/, $x[$y];
    for (@z) {