my @foo;
GetOptions ('foo=s{,}' => \@foo ); # mehrfache Zeichenketten als Parameter
print "$_\n" for (@foo);        # und anzeigen