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?