#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;

my %hash = ( 'test' => 'one', 'next' => 'two' );

print Dumper \%hash;

__OUTPUT__
$VAR1 = {
          'next' => 'two',
          'test' => 'one'
        };

##</code><code>##

s**lil*;  $*=join'',sort split q**;  s;.*;grr; &&s+(.(.)).+$2$1+; $; =
qq-$_-;s,.*,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$*,$/)