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