use Clone qw(clone); my $b = clone($a);