Chubb stopped offering classes in COBOL. I thought COBOL was dying a well deserved death. And now you are calling for its revival?

while ($newrisedesigns->hasXP()) {
    --($newrisedesigns->{XP});
}

I never liked typing enough to be a COBOL programmer.