Select Code to Download

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

{ bill => [1427766556, 5], bob => [1427766557, 12, 1427766555, 10] }