Statement Perl

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