#!/usr/bin/perl -w
use strict;
my @firstnames = qw(john jacob jingle heimer smitz);
my @lastnames = qw(brown black gray greene purple);
my @fullnames;
for (0..$#firstnames) {
 push(@fullnames, $firstnames[$_] . " " . $lastnames[$_]);
}
print "$_\n" foreach (@fullnames);