my $FOO;
GetOptions ('foo=s' => \$FOO ); # Zeichenkette als Parameter
my @foo = (split /,/,$FOO); # Auftrennen mehrfacher Werte nach Leerzeichen und Komma

print "$_\n" for (@foo);        # und anzeigen