my @firstnames = qw(john jacob jingle heimer schmidt); 
my @lastnames  = qw(brown black gray greene purple); 
my @fullnames;
for (@firstnames) { 
    push @lastnames, my $lastname = shift @lastnames; 
    push @fullnames, "$_ $lastname";
}