Perl有趣的隐藏转储

如何在perl中转储存储

my $my_data =  {
    'me'    =>  {
        'admin' => 'rhaen',
        'desc'  => 'webserver'
    },
    'you' => {
        'admin' => 'hazel',
        'desc'  => 'mailserver'
    }
};
stash(mydata => $my_data);
print Dumper (stash 'mydata');

如何将我的数据打印到我的管理员。我试过

打印转储程序（隐藏'mydata me'）；打印转储程序（隐藏“mydata”=>[“me”]）
似乎什么都不管用。正在尝试排除数据更改的原因。
我在中尝试了以下操作：

输出是

$VAR1 = 'rhaen';

我尝试了以下方法：

输出是

$VAR1 = 'rhaen';

旁注：Mojo:：Util提供了一个“dumper”函数，它是Data:：dumper的一个简单包装器，具有一些不错的设置。旁注：Mojo:：Util提供了一个“dumper”函数，它是Data:：dumper的一个简单包装器，具有一些不错的设置。