1 #!/usr/bin/perl -w
  2 
  3 use strict;
  4 
  5 my %course = (
  6         2 => 'c',
  7         1 => 'unix',
  8         3 => 'shell',
  9         4 => 'perl',
 10 );
 11 
 12 while (  (my $key, my $value) = each(%course) ) {
 13         print "$key => $value\n";
 14     }
 15 
 16         print "\nSorted values of hash:\n";
 17 foreach  my $val (sort values %course){
 18         print "$val\n";
 19 }
 20 print "\nEnter Key: ";
 21 my  $type = <stdin>;
 22 print  "you will be taking $course{$type} this semester\n";