print "\nAsking user which he/she taking: ";
my $choice = <STDIN>; chomp($choice);
if (exists $elective{$choice} ) {
    print "You will be taking the $elective{$choice} prog course\n";
                  }
                  else
                  {
                  print "No course taken\n";
                  }