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);

##</code><code>##

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

##</code><code>##

[
    {   country          => 'USA',
        firstname        => 'Larry',
        language         => 'English',
        lastname         => 'Wall'
        },
    {   country          => 'Scotland',
        firstname        => 'Johnny',
        language         => 'Scottish',
        lastname         => 'Walker'
        }
    ]