sub init {
   my $self=shift;
   $self->{_permitted} = \%fields;
   #... and add the other fields also
  };