Or you could also investigate the Clone module, which I've not seen before but which is on CPAN. It looks like it should do what you want:
use Clone qw(clone); my $b = clone($a);
In reply to Re: Recursive copier
by btrott
in thread Recursive copier
by dragonchild
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |