Statement Perl

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