# 1
{
  package MyTie;
  require Tie::Array;
  @ISA = qw/Tie::StdArray/;
  sub STORE {@{$_[0]}[$_[1],$_[1]+1] = ($_[2]) x 2}
}
tie my @x, 'MyTie';


# 6
$x = \42;
$y = "$x";