(sub { @$_ = split /,/, join ',', @$_ for @_ }) ->
    (\@foos, \@bars, \@bazen, \@quuxi);