my @a;
my @b;
GetOptions (
  "a=s" => \@a,
  "b=s" => \@b
);
@a = split(/,/,join(',',@a));
@b = split(/,/,join(',',@b));

if ( scalar(@a) !=2 || scalar(@b) !=2 ){
  # shout at user here
}

##</code><code>##

perl the_script -a 1 -a 2 -b 10 -b 30

##</code><code>##

perl the_script -a 1,2 -b 10,30