perl -MDevel::Peek -we '$a=1.2;Dump($a);$b="$a";Dump($a)'