perl-从解码的json创建json

这个问题可能看起来很愚蠢，但我已经花了几个小时在这个问题上了。我不是perl专家。我有一个JSON编码的字符串，我用以下代码解码：

$filters = decode_json $data;
$criteria = @{shift($filters)}{'criteria'};

然后，我处理这些过滤器和条件，并希望以json格式获取$data。因此，我只想反转上面的代码。任何帮助都将不胜感激

不只是

$data = encode_json $filters;

---

？

Shotor要求撤销其代码；我提供了一个。我用澄清的形式表达它，因为我不确定我的假设是否正确，但如果正确，那么它也是一个答案。仅供参考，

$criteria=@{shift（$filters）}{'criteria'}应该是
$criteria=${shift（$filters）}{'criteria'}，可读性更高，因为
$criteria=shift（$filters）->{'criteria'}