#!/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"