@$_ = split /(?:,|\s)+/, $row;
$#$_ != 2 ? next : push @{$data{$_->[2]}}, @$_[1, 0];