A bare block is a loop construct, so that next won't propagate out. Quick demonstration:

$ perl -le 'for (1..10) { { next if 1 }; print }'
1
2
3
4
5
6
7
8
9
10
[download]