$p = \$ary[ 2 ];

##</code><code>##

$ary[ 2 ] = 'anything';