open file;
while(<file>) {
  my $line1 = $_;
  my $line2 = readline(<file>);
  my $line3 = readline(<file>);
  #handle $line1, $line2, $line3 all at once then
  #loop up for the next entry
}