while(<>){
    chomp;
    push @data_array, [ split(/,/,$_) ];
}