sub my_clone
{
  my $ref=shift;
  my $ret;

  my $type=ref($ref);

  if( $type eq 'ARRAY' )
  {
    $ret=[];
    for(@$ref)
    { push(@$ret,my_clone($_)); }
  }
  elsif( $type eq 'HASH' )
  {
    $ret={};
    while(my ($k,$v)=each(%$ref) )
    { $ret->{$k}=my_clone($v); }
  }
  elsif($type)
  { die "Can't clone $type\n"; } # <= Nur Arrays und Hashes
  else
  { $ret="$ref"; } # <= um auch die letzten versteckten Objekte zu eleminieren

  return $ret;
}