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]
			}