%marsupilamis = (
  'Bobo' => 'schwarz',
  'Bibo' => 'gelb',
  'Bibi' => 'gelb mit schwarzen Tupfen',
  );

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