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