my %copy = %{ $self };
# or
my $copy = { %{$self} };