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