#!/usr/bin/env perl
use strict; use warnings;
use Text::CSV_XS;
use IO::File;

my $io = IO::File->new('/tmp/Allcontrol.csv','<') # open file
  or die("Cannot open data source file: $!");     # or die trying

my $csv = Text::CSV_XS->new();

my $head_row = $csv->getline($io); # get first line (headers)

my @dataset;

while (my $row = $csv->getline($io)) {
   my %row_hash = map { $headrow->[$_] => $row->[$_] } (0..$#{$headrow});
   push @dataset,\%row_hash;
}