it does not work, because it is taking the elements of @histofeld as a string

It is unclear to me what the relationship between your different variables @data, @histofeld and @input is. Could you please provide a short piece of code that we can run that demonstrates the problem, along with sample input and the expected output for that input? See Short, Self-Contained, Correct Example and How do I post a question effectively?

At the moment I can only guess that you might be trying to build an "array of arrays", which is shown (with sample code) in perldsc.

Since your data appears to be comma-separated, you should probably use the proper module for that, Text::CSV (also install Text::CSV_XS for speed):

use warnings;
use strict;
use Text::CSV;

my $csv = Text::CSV->new({ binary=>1, auto_diag=>2 });
open my $fh, '<', 'inputfilename' or die $!;
my @data;
while ( my $row = $csv->getline($fh) ) {
    push @data, $row;
}
$csv->eof or $csv->error_diag;
close $fh;

use Data::Dumper;
print Dumper(\@data);
[download]