my %hash = qw (J K L M N O);
print qq{$_ => $hash{$_}\n} for sort keys %hash;