foreach $filename(@file_array){ chomp ($filename); open (FH,"$filename") or warn "Could not open $filename $!"; while ($line = ){ if ($line =~ /.*$search_value*/i){ ++$matched; $file_listbox->insert('0',"$filename--> $line"); open (RECENT,">>$installpath/recent"); print RECENT "$search_value= $filename--> $line"; $numhash{"$search_value"}="true"; close (RECENT); } } close (FH); }