$j=0;
    $g=0;
    foreach $line(@vname){
      chomp($line);
      if($vname[$j] =~ /i|"$request"/){
        print qq~
          <tr>
            <td><a href=\"mailto:$email[$j] \">$vname[$j] </a></td>
          </tr>
        ~;
        $g++;
      }
      $j++;

    }