#!/usr/bin/perl

use strict;
use warnings;

{
    my $i;
    sub incrementor{
        print ++$i,"\n";
    }
}

incrementor();
incrementor();