while(( my @lines = map $_ = <>, 1 .. 4 )[-1]) {