my $flag = 0;
while(my $line = <IN1>){
　　print OUT1 $line if $flag;
　　$flag = 1 if $line =~ /key/;
}

試してないけど、これでおｋ