#!/usr/bin/perl -w

use strict;

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

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

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