use strict;
use warnings;

count() for 1..3;
print ende();

sub count{
    $foo::number = defined $foo::number ? $foo::number : 0;
    print ++$foo::number, "\n";
}

sub ende{
    return $foo::number
}