use strict;
use warnings;

use Data::Dumper;

foo(1);
bar();
foo(2);
bar();

sub foo {
	my @a;
	push @a, shift;
	print \@a;
	print Dumper(\@a);
	sub bar {
		print \@a;
		print Dumper(\@a);
	}
}