#!/bin/perl -w
%univer = ("asu","univ of arizona","pitt","univ of pittsburgh","cmu","carnegie mellon","whu","wuhan univ");
print %univer,"\n";

print "--------looping through the hash-----\n";
while(($key,$value) = each(%univer)) {
        print $key.",".$value."\n";
}

print "--------Sorting keys-------\n";

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

print "--------Sorting values-------\n";
foreach $value( sort {$univer{$a} cmp $univer{$b}} keys %univer)
{
        print "$value $univer{$value}\n";
}

print "--------Reverse sorting keys-------\n";

foreach $key (reverse sort keys %univer) {
        print "$key: $univer{$key}\n";
}

print "-------deleting an element-------\n";

delete($univer{"asu"});
print %univer,"\n";