if (exists $your{$love})
{
    foreach $night (@eternity)
    {
        close DOOR;
        delete $any{$doubt};
        if (sleep) {next};
    }
}
else
{
    tell WHY;
    wait or die;
}