# Assigning keys and values to a hash

%department = ("Eng" => "Engineering",
               "M"   => "Math",
               "S"   => "Science",
               "CS"  => "Computer Science",
               "Ed"  => "Education",
              );
$department = $department{'M'}; # Either single or double quotes# ok for the keys
$school = $department{'Ed'};
print "$department\n" ;
print "$school.\n";
print qq/$department{'CS'}.\n/;
print qq/testing:\n/;
print %department, "\n";