#!/usr/bin/perl
 use strict;
 use warnings;
 
 package main;
 
 my %foo;
 tie %foo, "myTieHash";
 
 $foo{BluBb} = "foo";
 $foo{grML} = "bar";
 
 print $foo{BlUbb} . "\n";
 print $foo{grml} . "\n";
 
 package myTieHash;
 
 #Konstruktor für ein Hash Tie
 sub TIEHASH {
         my $class = shift;
         my %self =  @_;
         return bless \%self, $class;
 }
 
 #Routine für den Schreibzugriff
 sub STORE {
         my $self = shift;
         my ($key, $value) = @_;
         return $self->{ucfirst lc $key} = $value;
 }
 
 #Routine für den Lesezugriff
 sub FETCH {
         my ($self, $key) = @_;
         return $self->{ucfirst lc $key};
 }
 
 1;