my %hash;
$hash{demerphq}="JAPH";
$hash{cal}="JAPL";      # learner.. :-)
print $hash{cal}," ... ",$hash{demerphq};