#!/usr/local/bin/perl -w
use strict;
my %A=();
my %r;

$r{a} = "A";
$r{b} = "B";
$r{c} = "C";
$r{d} = "D";
$r{e} = "E";
$r{f} = "F";
$r{g} = "G";
$r{h} = "H";
$r{i} = "I";
$r{j} = "J";

@A{keys %r} = keys %r;

print %A, "\n";