foreach my $apple (qw(McIntosh Empire Gala)){ $apple }