#!/usr/bin/perl
use strict;
use warnings;

my $i = 0;
BIGLOOP: while (1) {
        my @e;
        for  my $j (0..@e / 2 - 1) {
                print "died where I shouldn't have: $i\n";
                last BIGLOOP;
        }
        $i++;
}