Select Code to Download

use Text::CSV_XS qw( csv );

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