The $first and $last names might be a littel misleading. $first is a string that might be found in a file and $last is the category that the string belongs to. I have updated my code but its still not done yet

print"\n";
print "Please enter file name and path:";
chomp($filename = <STDIN>); #Gets File to Search
print "File Name: $filename"; #Prints the File Name
print "\n"; #Skips Line
#open DAFILE, "$filename"; #Opens the file to Search
open(testfile,"Hints.txt") or die "Can't find file\n"; #Opens Hints.tx
+t 
$i=0; #Var array counter
@daarray = (); #Var Array

while(<testfile>){ #While Hints.txt file is open

    $daarray[$i] = $_;  #Loads each line of Hints.txt into array
    $i++; # array's index
}
close(testfile);  #Close Hints.txt

for($j=0; $j<$i; $j++) #for each item in array
    {
    
    ($first,$last) = split(/\ == /,$daarray[$j]); #Splits hints line 
    $results = `strings $filename | grep -i '$first'`; #String Search
     next unless length $results;
     printf "Found: %s\n", $last;
    }    

print "Search Complete\n"; #Print 
#close DAFILE; #close DAFILE
[download]

Sorry, I'm a little new to Perl and I didn't understand all you code. How could I rewrite the script so its all Perl?