package Scrap::Foo; use strict; sub bar { my $dummy; $dummy->{_init}->{__PACKAGE__}++; return $dummy; } 1 #### use strict; use Scrap::Foo; use Data::Dumper; my $dummy = Scrap::Foo::bar(); print Dumper $dummy; #### $VAR1 = { '_init' => { '__PACKAGE__' => '1' } }; #### my $package = __PACKAGE__; $dummy->{_init}->{$package}++;