use strict;
use warnings;
foo();
print Dumper [4,5,6];
sub foo
{
	use Data::Dumper;
	print Dumper [1,2,3];
}
print Dumper [7,8,9];