your $_name is essentially a package variable.

If you want it tied to each instance, relate it to $this, e.g.:

sub myNameIs {
  ...
  #$_name = $name; don't to this, everyone will have the same name
  $this->{name} = $name;
  ...
}
[download]

likewise on whoAmI.

(...gives merlyn the honor post about ref($proto) || $proto)