my (@foos, @bars, @bazen, @quuxi);
sub setter {
   no strict refs;
   push @{shift}, split /,/, @_;
}
[download]

What's the point of the my? If you are using symbolic references, you will work with package variables, not lexical variables (well, that's assuming you use @{+shift}, otherwise you'll be pushing on @shift).

Abigail