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