Forgive me, but why are you setting $a like this:
$a = $_ + rand @{$r} - $_ and #...

It seems to me that it should simply be:
$a = rand @{$r} and #...

Just a bit confused is all... clarify?