This is the best I did...

my $string = "TE=ASR,EV=R,PPF=G1,TG=G1,TMT=P1,RTV=YE,AAT=0,AT=105,ON=Y
+,CF1=FGOC";


my @system_options   = split /,/, $string;

print @system_options[0  .. 9], "\n";
print @system_options[10 .. 19], "\n";
print @system_options[20 .. 29], "\n";
print @system_options[30 .. 39], "\n";
[download]

It only works if you know the number of items in the array.