Select Code to Download

tie @atied ...;
my $a1ref = \$atied[1]; # can I do this? .. if so ..
$$a1ref =~ s/a/z/;    # does this write the tied file?
$atied[1] = $$a1ref;  # or MUST I do this to write?

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