Select Code to Download

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

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