my $item = "UNKNOWN";
if ( $line =~ m/show port/ )                { $item                  = "port"; }
if ( $line =~ m/show router interface/ )    { $item                  = "l3"; }
if ( $line =~ m/Count:\s+(\d+)/ )           { $checks{$item}{$stage} = $1; }

##</code><code>##

$VAR1 = {
          'subs' => {
                      'post' => '2',
                      'pre' => '2'
                    },
          'bfd' => {
                     'post' => 0,
                     'pre' => 0
                   },
          'ospf' => {
                      'post' => '2',
                      'pre' => '2'
                    },
          'UNKNOWN' => {
                         'post' => '28615',
                         'pre' => '28615'
                       },
          'ldp' => {
                     'post' => '14',
                     'pre' => '14'
                   }
        };