package f;
$eins=[1,([2,3],4),5];
sub new {bless{} ;};
sub u {return $eins->[2]};
package g;
@ISA=f;
@k=(6,7,(8,9),0);
sub new {bless{} };
sub v {$f::eins->[2]=@k;}	
package main;
$p=g->new;
print $p->u;
print "$g::k[3]4";
$p->v;
print $f::eins->[2]->[3];