%elective = ( '2cpr2b' => 'c',
          '1unx1b' => 'unix',
          '3sh'    => 'shell',
          '4pl'    => 'perl'
        );
foreach $v (sort( values(%elective))){
print "$v\n";
}
print "\n";

print "User taking which course code\n";
foreach $k (keys(%elective)) {
print "$k\n";
}
@k = keys(%elective);
print "@k\n";


print "\nAsking user which he/she taking: ";
if (@k == <stdin>) {
                  print "You will be taking the shell prog course\n";
                  }
                  else
                  {
                  print "No course taken\n";
                  }