use strict;
my $n = do{ my $x=0; sub{$x++} };

print "[".join("][", &$n, &$n, &$n)."]\n