my $last = ( grep { ... } LIST )[-1];