Select Code to Download

sub glob_array {
  my (%opt) = @_;
...
  
  return \@array;
}

my @colors     = qw(red green blue);
my @directions = qw(north south east west);
my @numbers    = (1..3);

my $array = glob_array( 'arrays' => [\@colors, \@directions, \@numbers
+], 'joiner' => ' ', 'space holder' => '__' );

$VAR1 = [
          'red north 1',
...
          'blue west 2',
          'blue west 3'
        ];