my @lastfive = ( grep { /criteria/ } <FILEHANDLE> ) [ -5 .. -1 ];