C:\perlp>perl try.pl
No match
@data = (
          'alarm_level_2',
          'group2',
          '22',
          '622 fail,',
          '622',
          'fail'
        );
%stats = (
           'group' => 'group2',
           'level' => 'alarm_level_2',
           'total' => '22'
         );

C:\perlp>C:\perlp>