<$fh_in>; # Skip header print $fh_out $_ while <$fh_in>;