if ($man eq 5) {
    $the_devil=6;
    $god=7;
}
print "This monkey's gone to heaven";