my $i = 0;
my $pad = 'padding';
my $pad2 = 42;
my @e;
BIGLOOP: while (1) {