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

  ...

}