use Text::CSV; my @locations; my $csv = Text::CSV->new(); open (FILE, "locations.csv") or die "Couldn't open location file: $!"; while () { $csv->parse($_); push(@locations, [$csv->fields]); } close FILE;