my %CLASS_DATA = (...); sub set { my ($self, %args) = @_; while (my ($var, $val) = each %args) { if (exists $CLASS_DATA{$var}) { $CLASS_DATA{$var} = $val; # whoops! No validation } else { # create the var, croak, etc. } } }