You can use Data::Dumper and set $Data::Dumper::Useqq = 1 prior to dumping. No need to re-invent the wheel. (If that $VAR1 = disturbs you can set the Terse flag as well).