use Devel::Peek qw( Dump );

sub f {
   my $x;
   Dump($x);
   $x = "abc";
}

f();
f();