use Getopt::Long;
my %opts;
sub setter {
   push @{$opts{shift}}, split /,/, @_;  
}
GetOptions (
    'foos=s'  => \setter,
    'bars=s'  => \setter,
    'bazen=s' => \setter,
    'quuxi=s' => \setter,
);