open (CASEFILE, ">$whichfile");

##</code><code>##

  # better:
  open CASEFILE, '>', $whichfile or die "Can't write '$whichfile': $!\n";