I understand what and why Perl does what it does in this case but isn't it more natural to expect this:

variables are now: 1 1
variables are now: 1 1
variables are now: 2 2
[download]

Instead of:

variables are now: 1 1
variables are now: 1 2
variables are now: 2 2
[download]