#!/usr/bin/perl -wuse 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";}