#!/usr/bin/perl --
use strict; use warnings;
{
    my $count = $0; 
LOOOOOP: while(1){
        print "$count\n";
        if( not ( $count < 10 ) ){ 
            last LOOOOOP ;
        } else {
            $count++;
        }
    }
    undef $count;
}
__END__
$ perl junk
junk
Argument "junk" isn't numeric in numeric lt (<) at junk line 7.
1
2
3
4
5
6
7
8
9
10


##</code><code>##

#!/usr/bin/perl --
use strict; use warnings;
{
    my $count = $0; 
LOOOOOP: {
        print "$count\n";
        if( not ( $count < 10 ) ){ 
            goto NO_MORE_LOOP;
        } else {
            $count++;
            goto LOOOOOP;
        }
    }
NO_MORE_LOOP:
    undef $count;
}