programming-examples/perl/Statement/Using foreach to loop through array variable.pl

#!/usr/bin/perl -w

use strict;

my @array = qw(A B C D);
my $element;

foreach $element (@array) {
    print $element, "\n";
}