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

INITIALIZE:
{
    my $cnt = 1;
    sub get_count {
        return $cnt++;
    }
}
print get_count(), "\n" for 1..10;
goto INITIALIZE if get_count() < 15;
__END__
1..10, 12..21