Select Code to Download

use Text::CSV_XS;
open my $fh, "<", $file or die "$file: $!";
my $csv = Text::CSV_XS->new ({ auto_diag => 1, binary => 1, sep_char =
+> "|" });
$csv->column_names (qw( lastname firstname country language ));
my $info = $csv->getline_hr_all ($fh);

Wall|Larry|USA|English
Walker|Johnny|Scotland|Scottish

[
    {   country          => 'USA',
...
        lastname         => 'Walker'
        }
    ]