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