print"\n";
print "Please enter file name and path:";
chomp($filename = <STDIN>);
print "File Name: $filename";
print "\n";
open DAFILE, "$filename";
open (HintsFile, "Hints.txt") or die "Can't find file\n";

#$input = <DAFILE>;
$hints = <HintsFile>;


open(testfile,"Hints.txt");
$i=0;
@daarray = ();
while(<testfile>){

	$daarray[$i] = $_;
	$i++;
}
close(testfile);
for($j=0; $j<$i; $j++)
	{
	$hints = $daarray[$j];
	($first,$last) = split(/\ == /,$hints);
	if($first =~ m/$input/i)
		{print "Found: $last";
		 print "\n";
		}	
	}	

print "Search Complete\n";
close DAFILE;
close HintsFile;