One thing you really want to watch out for are recursive data structures.

Try your clone code against

    my $foo = {};
    $foo->{foo} = $foo;
[download]

ihb

Read argumentation in its context!