use strict;
use Data::Dumper;

my @array = ('nfs,7,rw',
             'afp,12,rro',
             'cifs,32,ro',
             'dns,5,rw',
);

my @splitted_up = ();
my $cnt = 0;
push @{ $splitted_up[($cnt ++) % 3] }, $_ 
   foreach (split (/,/, join (",",@array)));
print (Dumper \@splitted_up);