I have made my constructors:

package HIT;  

sub new  {
    
    my $class = shift;
    my $class = ref($class) || $class;
    
    my $self = {};
    
    $self->{Name} = "Default";
    $self->{Length} = 0;
    $self->{Score} = 0;
    $self->{Expect} = 0;
    $self->{Ident} =  "Default";
    $self->{Strand} = "Default";
    $self->{Match} = "Deafult";
    bless ($self,$class);
    return $self;
    }
[download]

Everything works well. Until I add a second instance of my object class.

ie $a = new HIT;
   $b = new HIT;
[download]

I have some methods that change each of these variables, only they change BOTH not just one.

Any ideas? I have searched and read FAQ's!
Thanks.