#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
$Data::Dumper::Useqq = 1;

my @data_array;
while(<DATA>){ # bzw. <>
    chomp;
    push @data_array, [split(/,/,$_)];
}

print Dumper \@data_array;