use TieHashCI;
my %data = (); tie (%data, 'TieHashCI');