use strict;
use warnings;

our @arr = <ABC DEF GHI>;

##</code><code>##

1.    my @many = glob "{apple,tomato,cherry}={green,yellow,red}";
##</code><code>##

use strict;
use warnings;
use Data::Dumper;

my @arr1 = <     abc def ghi f* >;
my @arr2 = qw(   abc def ghi f* );
my @arr3 = glob('abc def ghi z*');

print Dumper(\@arr1);
print Dumper(\@arr2);
print Dumper(\@arr3);

__DATA__
$VAR1 = [
          'abc',
          'def',
          'ghi',
          'file1.txt',
          'file2.txt'
        ];
$VAR1 = [
          'abc',
          'def',
          'ghi',
          'f*'
        ];
$VAR1 = [
          'abc',
          'def',
          'ghi'
        ];

##</code><code>##

use Data::Dumper;
use File::Glob ();
use warnings;
use strict 'refs';
my(@arr1) = glob('     abc def ghi f* ');
my(@arr2) = ('abc', 'def', 'ghi', 'f*');
my(@arr3) = glob('abc def ghi z*');
print Dumper(\@arr1);
print Dumper(\@arr2);
print Dumper(\@arr3);
glob_to_array.pl syntax OK