1,2 1,3 1,4 2,3 2,5 2,5 #### local %DATAHASH; open (DATA, 'foo.csv'); while (){ chomp; my @datarow=split(/,/, $_); push(@{$DATAHASH{$datarow[0]}}, ($datarow[1])); }