use strict;
use warnings;

my $FH = *insert your filehandle stuff here*;
my $linecounter = 0;
my $headerline;

while(my $line = <$FH>)
  {
  chomp($line); #not sure if needed...
  unless(my $modulo = ($linecounter % 4))
    { $headerline = $line; }
  elsif(($modulo == 3) && ($line eq 'ord'))
    { print "$headerline\n"; }
  $linecounter += 1;
  }