It looks like this line may be missing a "$" : Here is how I think it should look:

  foreach my $i (0..$#{$dst_info_sth->{NAME_uc}}) { # "$" added in fro
+nt of "dst_info_sth"
[download]

Update:Ignore this - the original syntax is valid.

Another suggestion is to use the perl debugger, and set a breakpoint at the failing line of code, then examine the variables involved.