"my" variable $self masks earlier declaration in same scope at test.pl line 11, <DATA> line 21937.