use strict;
use warnings;
use Data::Dumper;

package main;

tie my %h, 'UcHash';

$h{foo} = 1;

print Dumper \%h;



# Eine kleine eigene Klasse stellt Großbuchstaben
# in den Schlüsseln sicher
package UcHash;

use strict;
use warnings;
use Tie::Hash;
use base 'Tie::StdHash';
#our @ISA = qw(Tie::StdHash);


# Bei der Wertzuweisung werden alle Keys in Großbuchstaben umgewandelt
# STORE wird bei jeder Wertzuweisung aufgerufen
sub STORE {
        my ($self, $key, $value ) = @_;
        $self->{uc $key} = $value;
}
1;#########################################################################