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