while (<>) { push @queue, $_; print shift @queue if @queue > 2; }