sub create_counter {
    my $counter = 0;
    return sub { $counter++ };
}

#
#
#

my $counter = create_counter();

while (&$counter < $Some_Value) {
    &DO_Stuff;
}