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";
}

##</code><code>##

# Save the indices of elements in @search that match $PAT
$i++,/$PAT/ and push @indices, $i-1 for @search;