sending scalar and hash to function [SUMMARY]

Found the solution (my apologies).

I am receiving both an scalar, the second one as a reference, then it  
must be assigned to an other var.

   sub dosomething
     {
     ($myopt,$myparams) = @_;
     %myparams = $myparams;
     print "opt = $myopt\n";
     while( my ($k, $v) = each %myparams )
       { print "$k = $v \n"; }
     }