open INPUT, '<', $file_in or die $!;
open TESTFILE, '<', $file_test or die $!;