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