<cbstream> [Lady_Aleena] My problem is that modules like Text::CSV_XS doesn't open the files for me too.
<cbstream> [Lady_Aleena] Tux, I might use Text::CSV if it becomes a one liner.

##</code><code>##

my $AoA = csv2list (file => "file.csv");
my $AoA = csv2list (data => $io, sep_char => "|");
my $AoA = csv2list (file => "file.txt", sep_char => "|", fragment => "col=3;5-6;0-*");

my $AoH = csv2list (file => "file.csv", headers => "auto");
my $AoH = csv2list (data => $io, sep_char => "|",
    headers=> [ "Name", "Hobby", "Age" ]);

##</code><code>##

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'
        }
    }