#!/usr/local/bin/perl -w

use strict;
use Data::Dumper;

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

f;

f;

##</code><code>##

$VAR1 = undef;
$VAR1 = undef;