Statement Perl

#!/usr/bin/perl -w
use strict;
my $element;
foreach $element ('zero', 'one', 'two') {
    print "the element is: $element\n";
}