Select Code to Download

print '%ERROR1: ' .Dumper \%ERROR1;
          'Oracle' => {
...
                                                                      
+               '1433534424' => 1
                                                                      
+             }
                                                                    },
+ .. ... ..

group     Hostname    Service                Count    State           
+     Alert Started    Alert Duration
Oracle    server1        BACKUP ALERT        1        DAILY           
+     1433471420        10 MINUTES
Oracle    server1        FILESYSTEM ALERT    8        WARNING 85% FULL
+    1433523904        1 HOUR
Oracle    server2 .. ..

my @LIST = map {
        [ $_->[0], $_->[1], $_->[2], $_->[3], $_->[4], $_->[5],$_->[6]
+ ]
...
            } keys %{$ERROR1{$group}->{$_}}
        } keys %{$ERROR1{$_}}
    } keys %ERROR1;

         [
            'Oracle',
...
            }
          ],
          [ -- -