open( REFLIB, ... )
open( ORGLIB, ... )

while (<REFLIB>) {
    ...
    while (<ORGLIB>) {
        ....
    }
}