#!/usr/bin/perl -w
use strict;

my @array = qw(sutechy.com brian hunter);
foreach (@array) {
    print "EACH ONE = $_\n";
}
exit(0);