# input phn
..
..
# 1ord

##</code><code>##

if (/phn_a/ ... /1ord/) {
     print OUT $_;      }

##</code><code>##

$nLines = 5 if ( /1ord$/  );
     print OUT if $nLines-- > 0;