C:\perlp>t1.pl
@data = (
          'alarm_level_5',
          'group5',
          '55',
          ''
        );
@data = (
          'alarm_level_2',
          'group2',
          '22',
          '422 succeed,622 fail,911 no_pass.'
        );
%stats = (
           'group' => 'group2',
           'level' => 'alarm_level_2',
           'total' => '22'
         );

C:\perlp>