use strict;
use warnings;

$foo::number = 0;
count() for 1..3;

sub count{
    print ++$foo::number, "\n";
}