%Alphabet = ('one'   => 1,
             'two'   => 2,
             'three' => 3);
print $Alphabet{"one"};
print $Alphabet{$Written_number};