=begin comment

sub c_split (\@) {
    my $aref = shift;
    @$aref = split /,/, join ',', @$aref;
}

c_split(@foos);
c_split(@bars);
c_split(@bazen);
c_split(@quuxi);

=end comment