use Puma::Util::NCHash;
   use Data::Dumper;

   print "--- CREATE ---------------------------------------\n";
   my $nchash = nchash(create1 => 'one');
   $nchash->{CrEaTe2} = 'two';

   my $foo = Data::Dumper->Dump([$nchash->{_content}], ['create']);
   print Data::Dumper->Dump([$nchash], ['create']) ."\n";

   print "--- FIRSTKEY/NEXTKEY -----------------------------\n";
   foreach my $key (keys %$nchash) {
      my $lckey = lc($key);
      print "$lckey = $nchash->{$lckey} ($key)\n";
   }

   --- CREATE ---------------------------------------
   $create = bless( {
         'CrEaTe2' => 'two',
         'create1' => 'one'
      }, 'Puma::Util::NCHash' );

   --- FIRSTKEY/NEXTKEY -----------------------------
   create2 = two (CrEaTe2)
   create1 = one (create1)