Select Code to Download

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

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