#!/usr/bin/perl

use Data::Dumper;

my %hash;

$hash{'one'} = 1;
$hash{'two'} = 2;
$hash{'one'}{'a'} = "1a";
$hash{'oneb'} = "1b";

dumphash(\%hash);

exit 0;

sub dumphash() {
	my $hash = shift;
	$Data::Dumper::Sortkeys = 1;
	print Dumper($hash);
}