You don't need an anonymous sub. A foreach will do:

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