foreach my $key ( @keys ){
      my $meth = "get_$key";
      $equals = 0 unless ( $hashref->{ $key } eq $obj->$meth() );
    }