Select Code to Download

    split(/,/,@array1,4);

    $list=split(/,/,@array1,4);

foreach my $line (<DATA>) { #assuming you have a data source
    chomp $line;
...
__DATA__
name1,a1,b1,c1,\n,name2,a2,b2,c2\nname3,a3,b3,c3,\n,name4,a4,b4,c4
name5,a5,b5,c5,\n,name6,a6,b6,c6\nname7,a7,b7,c7,\n,name8,a8,b8,c8

name1 a1 b1 c1
name2 a2 b2 c2
...
name6 a6 b6 c6
name7 a7 b7 c7
name8 a8 b8 c8