Statement Perl

#!/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++;
}