my $str = Data::Dumper->new([$coderef],['$a'])->Deparse(1);
eval $str;