foreach my $thingy ( eval { bar; } ) { 1 }