open (INTFILEin, '<', $intfile) or die ("Cannot open file $intfile") unless -f $intfile;

Having the 'unless' clause there seems a little unusual. Can you try deleting that?

Also, make sure you use warnings.