sub sortblock {
     my($self, $sort) = @_;
     local *hash = %{$self->[HASH]};
     sort $self->[SORT] keys %hash;
     $self->[CHANGED] = 1;
 }