my( $found, $lineno );
while ( <DATA> ) {
    if ( /keyID/ ) {
        $found = $_;
        $lineno = $.;
        print "Found $found at line $lineno.\n";
        last;
    }
}