use strict;
use warnings;
use Getopt::Long;
use Data::Dumper;
##### THREE VARIATIONS #####
## Does work:
my $options_ok = GetOptions ('option=s@' => \(our $option_array_ref));
my @option_array = @$option_array_ref;
## Does work:
our $option_array;
my $options_ok = GetOptions ('option=s' => \@option_array);
## Doesn't work:
my $options_ok = GetOptions ('option=s' => \(our @option_array));

##### COMMON CODE #####
if (not $options_ok) {
    print "Problem with options\n";
    exit -1;
}
print Dumper(@option_array);
exit 0;

##</code><code>##

perl script.pl --option OPTION1 --option OPTION2

##</code><code>##

my $options_ok = GetOptions ('option=s' => \(our $option_variable));