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



##</code><code>##

foreach (qw(McIntosh Empire Gala)){ $_ }