my @arr=qw(Apple Banana Orange Flower Green Red Yellow);
print STDERR @arr;