#!/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 (@firstnames) {
    my $lastname = shift @lastnames; # get lastname
    push @lastnames, $lastname; # put back at the other end
    push(@fullnames, $_ . " " . $lastname );
}
print "$_\n" foreach (@fullnames);