my $output_fh;
while(<$input_fh>) {
    if ( $some_condition ) {
         open($output_fh, '>> myfile');
    } else {
         print $fh "What ever i want: $_" if ($fh); #In case you have some lines before $some_condintion is true;
    }
}
close($output_fh);