Another way using eof, a scalar readline and a ternary in a map.

knoppix@Microknoppix:~$ perl -Mstrict -Mwarnings -E '
> open my $fh, q{<}, \ <<EOD or die $!;
> Line 1
> Line 2
> Line 3
> Line 4
> Line 5
> EOD
> 
> while ( not eof $fh )
> {
>     my @two = map { eof $fh ? () : scalar <$fh> } 1 .. 2;
>     chomp @two;
>     say qq{@two};
> }'
Line 1 Line 2
Line 3 Line 4
Line 5
knoppix@Microknoppix:~$
[download]