Help for this page
12,1427766557, bob 5,1427766556, bill 10,1427766555, bob
my %data; open(DATA, '<<', 'test.csv') or die "Can't open file: $!"; ... $#$_!=2 ? next : push @{$data{$_->[2]}}, @$_[1,0] }