use strict;
use warnings;


{
    package eins;
    our $i;
    package main;
    sub inc1{
        print ++$i,"\n";
    }
}



{
    package zwo;
    our $i=10;
    package main;
    sub inc2{
        print ++$i,"\n";
    }
}

inc1();
inc2();
inc1();
inc2();