Select Code to Download

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

# working on the above array, I want to get:
arr1 = qw(nfs afp cifs dns);
arr2 = qw(7 12 32 5);
arr3 = qw(rw ro ro rw);