Select Code to Download

sub test{
  my $i = shift;
...
for my $i(0..3){
  &test($i,{});
}

Output: 
Use of uninitialized value $test1 in concatenation (.) or string at te
+st.pl line 19.
...
test1 after hash assignment:        0
i = 3    test1 after defaulting to i:    0
<br>