plz show us your loop! Either you need to always take 3 elements from a flat array or you need a nested array of arrays.

In any case use Data::Dumper (it's core) to inspect the content of @SList

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