#!/usr/bin/perl

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

my %t=qw( a A b B c C d D e E f F );

print Dumper \%t;

print "***************\n"

##</code><code>##

#!/usr/bin/perl

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

my %t=qw( a A b B c C d D e E f F );

my %l=%t;

print Dumper \%t;

print Dumper \%l;


print "***************\n"


##</code><code>##

$VAR1 = {
          'c' => 'C',
          'e' => 'E',
          'd' => 'D',
          'a' => 'A',
          'f' => 'F',
          'b' => 'B'
        };
$VAR1 = {
          'c' => 'C',
          'e' => 'E',
          'd' => 'D',
          'a' => 'A',
          'f' => 'F',
          'b' => 'B'
        };
***************
$VAR1 = {
          'd' => 'D',
          'a' => 'A',
          'f' => 'F',
          'c' => 'C',
          'b' => 'B',
          'e' => 'E'
        };
$VAR1 = {
          'a' => 'A',
          'd' => 'D',
          'f' => 'F',
          'b' => 'B',
          'c' => 'C',
          'e' => 'E'
        };

##</code><code>##

 perl -e 'my %t=qw(a A b B c C d D e E); print join("", %t) . "\n"'

##</code><code>##

eEcCaAbBdD