#!/usr/bin/perl

  use warnings;
  use strict; 
  use Benchmark;
  
  timethese(1_000_000, { 

   foreach_loop    => \&foreach_loop,
   while_each_loop =>  \&while_each_loop } );
  
 my %monks = ( jdporter      =>  'Prior',
               tye            => 'Bishop',
               bobf           => 'Vicar',
               planetscape    => 'Vicar',
               belg4mit       => 'Parson',  );

  
  sub foreach_loop {
      foreach my $key ( keys %monks ) {
          print "$key => $monks{$key}", "\n";
      }
  }
  
  sub while_each_loop {
      while( my( $key, $value ) = each %monks ) {
          print "$key => $value", "\n";
      }
  }