my ($x) if ...
my $x = 1 if ...
my ($x, $y) = (1, 2) if ...
my ($x, $y, $z) = (split /\s+/ => $spaced_tokens)[3 .. 5] if ...

##</code><code>##

$test1 is not defined.
Use of uninitialized value $test1 in concatenation (.) or string at ./pm_example.pl line 13.
test1 after hash assignment:		''
i = 0	test1 after defaulting to i:	'0'
$test1 is defined.
test1 after hash assignment:		'0'
i = 1	test1 after defaulting to i:	'0'