sub upd_info ()
{
    $params1 = shift;
    %paramhash = %$params1; # COPY!!
 
    $params2 = shift;
    @paramarray = @$params2; # COPY!!