while (($key, $value) = each (%fruit) {
  print $key;
  print '-';
  priint $value;
  print '<br />';
}