use feature qw(switch); given (1) { print; break; print } for (1) { print; last; print }