sub habar { my $self = shift; $self -> {_________________furble} = 0; }