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