our $HardTimes;
while ($HardTimes++) {
    our $people->drift($door, $door);
    !$people->find('heaven') and $I->care_not( $people->destination );
    $people->listen; $I->go;
    die($HardTimes);
    while ( $I->sing(my $song{'lonesome'}) ) {
        $people->hear(my $song);
    }
    $HardTimes++;
}
[download]