while(( my @lines = map $_ = <>, 1 .. 4 )[0]) {
    print @lines;
    print "\n";
}