#! /usr/bin/perl -w

use strict;
use Text::CSV_XS qw( csv );
use Data::Dumper;

my @rows;


open my $FH, "<", "./test2.csv" or die "./test.csv $!";

my $aoh = csv( in => $FH,
               headers => 'auto'
             );

close $FH;

print Dumper($aoh);