for my $row (split /,/, $row->[1]) {
...