# 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";
|