foreach my $key (keys(%$param)) {