my @data = [1,5,7,8,9,10,11,3,3,5,5,5,7,2,2];

##</code><code>##

my $data = [1,5,7,8,9,10,11,3,3,5,5,5,7,2,2];

##</code><code>##

use strict;

open my $fh, '<', 'file' or die "file: $!\n";

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