perl hash operate

1.define a hash
    %hash={$key1, $value1,$key2,$value2........};
    %hash = {
                         $key1 => $value1,
                         $key2 => $value2,
                         ......
                     }
2. add and remove an element
    $hash{$key} = $value ; # add an element;
    delete $hash{$key}; # remove an element and return the $value;  
    foreach $key ( keys %hash ) {
       delete $hash{ $key };
    }

3 traversing a hash
    while( ($key, $value) = each %hash )
    foreach $key ( keys %hash )

4 sorting a hash
    foreach $key ( sort keys %hash )