sub deep_copy {
    my $this = shift;
    if (not ref $this) 
    {
      return $this;
    } 
    elsif(ref $this eq "HASH") 
    {
       return {map { $_ => deep_copy($this->{$_}) } keys %$this};
     } 
  }