push @{$outp}, sprintf '"%s"=>"%s"', @$_ foreach
      @{&{ sub ($) { my $_=["",[]];
        push @{$_->[1]},\@{$_->[0]} while @{$_->[0]=[each $_[0]]}; 
        $_->[1] } } (\%ahash)}, @{$v};