snmpset -v 1 -c pri 99.1.1.1 .1.3.6.1.4.1.9.9.16.1.1.1.3.333 x "63 1 40 47" 

##</code><code>##

use Net::SNMP ;
   $session->set_request(
    -varbindlist => ['.1.3.6.1.4.1.9.9.16.1.1.1.3.333',IPADDRESS,$r_ip]
    );