#!/usr/bin/perl -w
#################################################################################
## Author:      BRIAN HUNTER
## Date:        8/10/2020
## Email:       brian@sutechy.com
#################################################################################
use strict;

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