sub func { my ( $str, $desktop_info, $files ) = @_; #sref, href, aref ... }