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

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

}


##</code><code>##

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

  $$str = update_string_ref();
  for ( keys %$desktop_info ) {
     ...
     push @$files, $file;
  }
  ....

}


##</code><code>##

sub func {
   my ( $>$str, $>%desktop_info, $>@files ) = @_; 

  ....

}


##</code><code>##

sub func {
  my ( $var ) = @_;
 
  ...

}