Add some simple debugging:

$lineout = "$temp1 = $temp2\n";
print FILE2 "A. $lineout";
print "B. $lineout";
...
print "C. $item\n";
print FILE2 "D. $item\n";
[download]