I do not think your code does what you think it does. You have two different $x variables shown in your anonymous subroutine, not a single one referencing itself.