> perl -lwe'$x{y}=2; *z=\$x{y}; print$z; print$x{y}; $z=33; print%x'
2
2
y33
>
[download]