#associative arrays

#initialize as empty
%Mygrades=();

#Assign elements
$Mygrades{'CHM696'}=90;
$Mygrades{'CHM621'}=70;
$Mygrades{'CHM624'}=50;

#Printing
while(($key,$value)=each(%Mygrades))
{
	print "$key => $value\n";
}