my $ix = 0;
 while (<$data>) {
  if(/$query/i){
      $ix++;
      $display_field->Append("$ix : $_") 
  }
 }

...
warn "$time ";