@x=split$y,q{Tie Just Another Perl Hacker First};$"=$y,;eval uc("*a'@x[29,18,33,24, 22]").'=sub{$x[$y++],};'.uc("*a'@x[0..2]" ).(ref\$y).'=sub{bless\$y,$x[9]}';($a=$b= "Internal::READONLY\${\\undef},0")=~s#::? #s::Sv#x;eval$a;tie${\undef},$x[9];$a=(); $b=();$c=();$d=undef;print@a[99..123]=();