open(IN1, "<$infile");
open(IN2, "<$infile");
open(IN3, "<$infile");

my $temp;
$temp = <IN2>; # remove one dummy line from 2nd file-handle
$temp = <IN3>; 
$temp = <IN3>; # remove two dummy lien from 3rd file-handle

# Now process all three file-handles separately
# in chunks of three lines