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