sub uneval { my ( $a ) = @_; return ( in_current_scope => '$a' ); }