while ( my $a =<DATA> ){
  my $b=<DATA>;
  my $c=<DATA>;
  print $a;
}

# while ( my $a =<DATA>, my $b=<DATA>, my $c=<DATA> ){
#   print $a;
# }
  
__DATA__
a
b
c
d
e
f
g
h