#!/usr/bin/perl
use strict;
use warnings;

require Data::Dumper; Data::Dumper->import(qw(Dumper));
local $Data::Dumper::Purity = 1;
local $Data::Dumper::Useqq = 1;
local $Data::Dumper::Sortkeys = sub {
	my ($hash) = @_;
	return [(sort {lc $a cmp lc $b} keys %$hash)];
};
my %test = (
	harry	=> 'foo',
	larry	=> {
		foo2	=> 'aar',
		foo		=> 'bar',
	},
);
print Dumper(\%test);