open(OUTFILE, "> $residuecombofile") || die "ERROR: Unable to open $residuecomdofile for writing: $!\n"     
print OUTFILE "$phiangle\t$psiangle $pdbcode\n";
...
  
close OUTFILE;