#!/usr/bin/perl

%cookieJugInitOne = (chocolate => 10,
              mint => 20,
              peanut => 30,
              butter => 40,
              mm => 50);
              
dbmopen %cookieJugOne, "cookieData", 0666;

foreach $type (keys %cookieJugInitOne) {
  $cookieJugOne{$type} = $cookieJugInitOne{$type};
  print "$type $cookieJugOne{$type}\n";
}

dbmclose %cookieJugOne;    
