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

##</code><code>##

1,5,7,8,9,10,11,3,3,5,5,5,7,2,2

##</code><code>##

(@histofeld) = split(',',$input[$i]);