=begin comment

sub c_split {
    @$_ = split /,/, join ',', @$_ for @_;
}

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

=end comment