#!/usr/bin/perl

use strict;
use warnings;

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

my $data = \@data_array;

print "$data->[0][0]\n";