while (<FILE>)
{   $gline = <FILE>;
    push @even, $gline;
}
seek FILE, 0,0;
do
{   $gline = <FILE>;
    push @odd, $gline;
} while (<FILE>);
foreach(0..$#odd)
{ print $odd[$_], $even[$_];
}