open (MY_DATA, "$someFile") or die qq(aauugh!);

while (<MY_DATA>) {
    next unless (/^internal name/);
}

while (<MY_DATA>) {
    next unless (/^need this/);
    <do something>
}

##</code><code>##

open (MY_DATA, "$someFile") or die qq(aauugh!);

my $internalNameFlag = 0;
while (<MY_DATA>) {
    next unless (/^internal name/);
    internalNameFlag = 1;
}

while ((<MY_DATA>) and ($internalNameFlag)) {
    next unless (/^need this/);
    <do something>
}

##</code><code>##

my $internalNameFlag = 0;
while (<DATA>) {
    if ($internalNameFlag) {
        if (/^need this/) {
           <Do something>
        }
    } else {     #Internal Name Not Found Yet
       if (/^internal name/) {
           $internalNameFlag = 1;
       }
    }
}