programming-examples/perl/Statement/For each loop with array.pl

#!/usr/bin/perl

use warnings;

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