#!/usr/bin/perl

use warnings;

@array = ("one", "two", "three");
foreach $iterator (@array) {
    print "The value of the iterator is now $iterator \n";
}