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