#!/usr/bin/perluse warnings;@array = ("one", "two", "three");foreach $iterator (@array) { print "The value of the iterator is now $iterator \n";}