my %course =( "2CPR2B" => "C Language",
               "4PL400" => "Perl Language");

##</code><code>##

  print $course{"2CPR2B"}, "\n";