Maybe I have missed something, I am very new to Perl, but if you are running this on an intel (non unix) you probably need to use a backslash \ instead of a forward slash /.
You will also need to escape the backslash as you have on other places i.e.
this my $infile = "C:/radtrans/doclisth.chr";
shoul be my $infile = "C:\\radtrans\\doclisth.chr";