la.txt:
Jan|Birdwatching|7
LA|coding|25
Tux|skiing|52

code:

my @gdr = qw( Name Hobby Age );
my %la  = lady_aleena (file => "la.txt", headings => \@hdr);
my $aoh = csv2list (file => "la.txt", sep_char => "|", headers => \@hdr);
my %hoh = map { $_->{Name} => $_ } @{$aoh};

result for both:
{   Jan              => {
        Age              => 7,
        Hobby            => 'Birdwatching',
        Name             => 'Jan'
        },
    LA               => {
        Age              => 25,
        Hobby            => 'coding',
        Name             => 'LA'
        },
    Tux              => {
        Age              => 52,
        Hobby            => 'skiing',
        Name             => 'Tux'
        }
    }