#!/usr/bin/perl
use v5.10.1;
use strict;
use warnings;

use Getopt::Long;

my (@a, @b);
my %options = (
                 'a' => \@a,
                 'b' => \@b,
               );

GetOptions (
             'a=s{2}' => \@a,
             'b=s{2}' => \@b,
           );

# say "$options{'a'}->[0], $options{'a'}->[1]";
# say "$options{'b'}->[0], $options{'b'}->[1]";

say "@{ $options{'a'} }";
say "@{ $options{'b'} }";