Select Code to Download

    foreach( @{$result->MetricAlarms} ){

...
        print Dumper($_);
    }
    print "\n***\n--number of elements: ", scalar @{$result->MetricAla
+rms}, "\n";

my $ar_ref = $result->MetricAlarms;
foreach( @$ar_ref ){
...