use strict;
use warnings;

my $x;

else:
{
    print ++$x;
    redo ("else")[0] if $x <3;
}