Select Code to Download

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

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