@$_ = split /(?:,|\s)+/, $row; $#$_ != 2 ? next : push @{$data{$_->[2]}}, @$_[1, 0]; #### { bill => [1427766556, 5], bob => [1427766557, 12, 1427766555, 10] }