my %h;
my $aoa = csv (
    in      => *DATA,
    headers => "auto",
    filter  => { 1 => sub { for my $f (keys %_) { push @{$h{$f}}, $_{$f} }; 0 }},
    );