#!/usr/bin/perl

# ..................................
# you can ignore this if you want...
# ..................................
%perl = ('monk' => chr(80)  .
                   chr(105) .
                   chr(120) .
                   chr(105) .
                   chr(101) .
                   chr(115) );

sub heaven { print "$perl{@_[0]}\n"; }

$man = 5;

# ...........................
# let the fun begin
# ...........................
{
  if ($man == 5) {
    $Devil = 6;
    if ($Devil == 6) {
      $God = 7;

      $this = 'monk';
      &heaven($this);
    }
  }
}