foreach my $obj (%{$href})
     #here ^ is the copy

##</code><code>##

foreach my $key (keys %{$href})
{
  #do what you need with $key and $href->{$key}
}