@$_ = split /,/, join ',', @$_ for (\@foos, \@bars, \@bazen, \@quuxi);