use Data::Dumper;
warn Dumper $result;

##</code><code>##

$$myresult{$rkey} = $value;

##</code><code>##

warn "Parameters on subroutine entry:";
warn Dumper \@_;

warn Dumper $myresult;