Statement Perl

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