12,1427766557, bob

			5,1427766556, bill
		
			10,1427766555, bob

##</code><code>##

			my %data;
			open(DATA, '<<', 'test.csv') or die "Can't open file: $!";
			while (my $row=<DATA>) {
			 @$_ = split /(?:,|\s)+/, $row;
			 $#$_!=2 ? next : push @{$data{$_-&gt;[2]}}, @$_[1,0]
			}