use Text::CSV_XS qw( csv );

my $aoh = csv (in => $file, headers => "auto", sep => "|", allow_whitespace => 1);