#!/usr/bin/perl -w
use strict;
my @array = qw(john jacob jingle heimer smitz);
my $index = 0;
foreach (@array) {
    $_ .= $index;
    $index++;
}
print "My new array looks like\n";
print "$_\n" foreach (@array);