sort hash by a key

foreach $key ( sort keys %Words )
   { print "$key \n " ; }