Shell Programming and Scripting

#!/usr/bin/perl
use warnings;
use strict;
my @array = ();
### Load file into array
for my $i (split '\n', `cat /tmp/a.txt`) {
    push @array, [ split ',', $i ];
}

open my $FH, '<', '/tmp/a.txt' or die "Can't open a.txt: $!";
while ( my $line = <$FH> ) {
    chomp $line; # remove the newline at the end
    push @array, [ split ',', $line ];
}
close $FH;

open my $FH, '<', 'a.txt';
@array = map { chomp; [ split ',' ] } <$FH>;
close $FH;