{
    local $_;
    while (<FILEHANDLE>) {
        push @lines, $_ if /criteria/;
        shift @lines if @lines > $n;
    }
}