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