sub next_number {no warnings;++$::N}
say next_number;
say next_number;
say next_number;
__END__
1
2
3