gistfile1.txt

my $t_elements = keys(%{ $tmpl });
print Data::Dumper->Dump([ { 
                             'tmpl' => $tmpl,  
                             't_elements' => $t_elements,
                         } ]);


$VAR1 = {
          'tmpl' => {
                      'service_notification_options' => 'w,u,c,r',
                      'host_notification_commands' => 'host-notify-by-email'
                    },
          't_elements' => 6
        };