%array = ( "100", "Green", "200", "Orange");

while (($key, $value) = each(%array)) {
      print("$key = $value\n");
}