Select Code to Download

use Data::Dumper;
my @arr=qw(Apple Banana Orange Flower Green Red Yellow);
print STDERR Dumper [ @arr ];

$VAR1 = [
          'Apple',
...
          'Red',
          'Yellow'
        ];