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