#!/usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

{
    my $var;
    sub init { $var = 0 }
    sub following { ++$var }
    sub exhausted { $var > 10 }
    sub get { $var }
}

for (init(); ! exhausted(); following()) {
    say get();
}