for ( sort keys %WORD )
{
    print "$_: $WORD{$_}\n"
}