Select Code to Download

sub test{ 
  my $i = shift; 
  my $params = shift;  
...
  print "i = $i test after defaulting to i:\t$test\n";
} 
for my $i (3..5){ &test($i) }

test1 after hash assignment:
i = 3    test1 after defaulting to i:    3
...
i = 4    test1 after defaulting to i:    3
test1 after hash assignment:        3
i = 5    test1 after defaulting to i:    3