foreach my $i (0..$#{$dst_info_sth->{NAME_uc}}) { # "$" added in front of "dst_info_sth"