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

use strict;
use Data::Dumper;

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

f;

f;