use strict;
use warnings;
$|=1;            # disable buffering

my $a;
our $y;


for (0..10) {
   print;
   $a++;
   $y++;
}