tie @atied ...;
my @recs;
for $a (@atied) {push @recs, \$a;}
... later ...
for $a (@recs} {$$a =~ s/a/z/;}