Select Code to Download

#!/usr/bin/perl -w

...
    my $str = $hash{$key_ht{$key}}[1];
    print "Integer is: ", $num, " -- Alpha is: ", $str, "\n";
}

Integer is: 1 -- Alpha is: One
Integer is: 2 -- Alpha is: Two
...
Integer is: 5 -- Alpha is: Five
Integer is: 6 -- Alpha is: Six
Integer is: 12 -- Alpha is: Twelve