#print $fh $$string; 
#          ^^

print $fh $string;