use Data::Dump::Streamer;

my $x=counter();
{
    my $i=1;
    sub counter { my $r=$i; $i++; $r };
}

Dump($x,\&counter)->Names(qw(x *counter))->Out();
__END__
my ($i);
$i = 1;
$x = undef;
sub counter {
  my $r = $i;
  ++$i;
  $r;
};