use Data::Dumper;

open(DAT, "< file") or die $!;

while(<DAT>) {
  chomp;
  push @data, [ split( /,/ ) ]; # or split( /,/, $_ )
}

print Dumper \@data;