sub blah {
    my $look_for = shift;
    my (undef, @a) = eval 'grep {$_ eq $look_for .. /(*FAIL)/} @_';
    @a;
}