perl -e 'use Clone qw(clone); $a =""; undef $a; $c = clone $a;'