You can get rid of the temporary variable by writing

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

But apart from that it doesn't look bloated, so there's no need to simplify them further.