sub func { my ( $rs_str, $hr_desktop_info, $ha_files ) = @_; $$str = update_string_ref(); for ( keys %$desktop_info ) { ... push @$files, $file; } .... } #### my ($str, $desktop_info, $files) = @_; # rs, rh, ra