Simply Parse to create arrays for each column, and then translate to a hash at the very end.

use Text::CSV_XS;

use strict;
use warnings;

my $csvfile = shift or die "No filename specified";

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

my @columns;

open(FILE, $csvfile) or die "Can't open $csvfile: $!";
while (<FILE>) {
    $csv->parse($_) or die "parse() failed: " . $csv->error_input();
    my @data = $csv->fields();

    for my $i (0..$#data) {
        push @{$columns[$i]}, $data[$i];
    }
}
close(FILE);

my %hash = map {shift @$_ => $_} @columns;

use Data::Dumper;
print Dumper(\%hash);
[download]

- Miller