$VAR1 = {
          'index' => {
                       'rg' => {
                                 'ry' => '4995',
                                 'rgy' => '2243',
                                 'rg' => '2904'
                               },
                       'ry' => {
                                 'rg' => '5010',
                                 'ry' => '2877',
                                 'rgy' => '2212'
                               },
                       'rgy' => {
                                  'rg' => '2051',
                                  'ry' => '1959'
                                },
                       'null' => {
                                   'rg' => '1'
                                 }
                     },
          'mothersbaugh' => {
                              'rg' => '5000',
                              'rgy' => '5000',
                              'r' => '5000',
                              'g' => '10000',
                              'gy' => '5000'
                            },
          'fork2' => {
                       'r' => '10000',
                       'g' => '5000',
                       'y' => '5000',
                       'rg' => '5000',
                       'ry' => '5000'
                     },
          'fork1' => {
                       'ry' => '5000',
                       'rg' => '5000',
                       'y' => '5000',
                       'g' => '5000',
                       'r' => '10000'
                     },
          'starttime' => '1499821117',
          'prev' => 'ry',
          'cur' => 'ry'
        };
$ 
$ ~
$ perl  def4.pl --iterations 5000 -stats 1