Select Code to Download

use strict;
use warnings;

our @arr = <ABC DEF GHI>;

1.    my @many = glob "{apple,tomato,cherry}={green,yellow,red}";

use strict;
use warnings;
...
          'def',
          'ghi'
        ];

use Data::Dumper;
use File::Glob ();
...
print Dumper(\@arr3);
glob_to_array.pl syntax OK