#!/usr/bin/perl

use v5.24;
use warnings;

my ($first, $last);
while (<DATA>) {
    chomp;
    $first ||= /d/;
    undef($first) if $last ||= /h/;
    if ($first || $last) {
        undef $last;
        #goto ewhile unless //;
        goto eif unless //;
        say;
        eif:
    }
    ewhile:
}
__DATA__
c
d
e
f
g
h
i