#!/usr/bin/perl -w

use strict;

my @names = qw(A B C D);

print "processing using a for loop:\n";

for (my $i = 0; $i <= $#names; $i++) {
    print "     Hello $names[$i]!\n";
}