sub func {
   my ( $rs_str, $hr_desktop_info, $ha_files ) = @_; 

  $$rs_string = update_string_ref();
  for ( keys %$hr_desktop_info ) {
     ...
     push @$ha_files, $file;
  }
  ....

}