print $key for $key sort keys   %hash;
print $val for $val sort values %hash;