sub FETCH { for (1..3) { eval { $x } } } sub TIEARRAY { bless [] } my @a; tie @a, 'main'; $y = $a[0];