my $re = qr/$request/i;
my $i = my $g = 0;
for my $line (@array) {
 chomp;
 if ($line =~ $re) {
  #do stuff
  print $line, $email[$i];
  $g++;
 }
} continue { $i++ }