my @lines =  <FH1>;

foreach $line ( @lines )
{
    print FH2 $line;
}