Select Code to Download

# I didn't copy the top of your file, and you should add use Data::Dum
+per; if you want this code to work
my $header = $csv->getline($FH);
my @keys = @$header;
...
}

print "Result: ", Dumper \%result;

while (my $row = $csv->getline($FH))
{
...
}

print "Result: ", Dumper \%result;