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