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