http://www.perlmonks.org?node_id=144931


in reply to how to clone

There is a module Clone.
use Clone qw(clone); $a = { 'foo' => 'bar', 'move' => 'zig' }; $b = [ 'alpha', 'beta', 'gamma', 'vlissides' ]; $c = new Foo(); $d = clone($a); $e = clone($b); $f = clone($c);