use strict;
package Mr::Rogers;

%Mr::Rogers =
    ( instrument => 'violin',
      clothing   => 'cardigan',
      deameanor  => 'mild',
      age        => sub { rand 20 + rand 60 } ,
      habitat    => 'US-unknown');


map { __PACKAGE__->{cookies_eaten}++ if (rand 10 > 5) } (1..5) ;

warn __PACKAGE__->{cookies_eaten};