sub get_array_ref(\@) { $_[0] }
GetOptions( 'array=s' => get_array_ref(my @array) );
print("@array\n");

##</code><code>##

GetOptions( 'array=s@' => \(my $array) );
print("@$array\n");