#!/usr/bin/perl -w
use strict;
use diagnostics;

my %hash;
$hash{1}{2}		= '123';

print "vorher:\n";
foreach my $xyz (sort {lc $a cmp lc $b} keys %hash) {
	print "$xyz=\'$hash{$xyz}\'\n";
}	

if (defined $hash{0}{2}) {
}

print "nachher:\n";
foreach my $xyz (sort {lc $a cmp lc $b} keys %hash) {
	print "$xyz=\'$hash{$xyz}\'\n";
}