#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

my @histofeld = ();
open my $input_file, '<', 'data.txt' or die "$!";
while (my $input_buffer = <$input_file>) {
    chomp $input_buffer;
    my @data = split(',',$input_buffer);
    push @histofeld, @data;
}
close $input_file;

print Dumper \@histofeld;

__END__

~/PerlMonks$ perl test.pl data.txt 
$VAR1 = [
          '1',
          '5',
          '7',
          '8',
          '9',
          '10',
          '11',
          '3',
          '3',
          '5',
          '5',
          '5',
          '7',
          '2',
          '2',
          '2',
          '6',
          '7',
          '8',
          '9',
          '15',
          '17',
          '3',
          '4',
          '5',
          '6',
          '5',
          '7',
          '2',
          '3'
        ];

##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

my @histofeld = ();
open my $input_file, '<', 'data.txt' or die "$!";
while (my $input_buffer = <$input_file>) {
    chomp $input_buffer;
    my @data = split(',',$input_buffer);
    push @histofeld, [ @data ];
}
close $input_file;

print Dumper \@histofeld;

__END__

~/PerlMonks$ perl test.pl data.txt 
$VAR1 = [
          [
            '1',
            '5',
            '7',
            '8',
            '9',
            '10',
            '11',
            '3',
            '3',
            '5',
            '5',
            '5',
            '7',
            '2',
            '2'
          ],
          [
            '2',
            '6',
            '7',
            '8',
            '9',
            '15',
            '17',
            '3',
            '4',
            '5',
            '6',
            '5',
            '7',
            '2',
            '3'
          ]
        ];