use strict;
use warnings;
my %hash = ( Who   => 'Me',
             What  => 'Person',
             How   => 'Conception',
             When  => '35 years ago',
             Where => 'I dont want to know',
             Why   => 'Irrelevant' );
while ( my ( $key, $value ) = each %hash ) {
    print "$key => $value\n";
    scalar keys %hash;
}