open my $fh1,'<', $file1 or die ...; open my $fh2,'<', $file2 or die ...; my $fh = $fh1; print $fh ...; if( some_condition ){ $fh = $fh2; } print $fh .... close $fh1; close $fh2;