sub working
{
    my @a = (1);
    grep { print "grep\n"; return 'leave' } @a;
    print "Still here #1\n";
}
working;

__DATA__
grep