#!/usr/bin/perl -wuse strict;my @array = qw(A B C D);my $element;foreach $element (@array) { print $element, "\n";}