sub describe_alarms {
    my ($alarm_name_prefix) = @_;
    my $obj = Paws->service( 'CloudWatch', region => 'us-east-1' );
    my $result = $obj->DescribeAlarms(
        AlarmNamePrefix => $alarm_name_prefix,

    );
    
    #foreach(@$result){    Updated
    foreach( @{ $result->MetricAlarms } ){

        print "-"x79,"\n";
        print "**AlarmName** : ", $_->AlarmName,"\n";
        print Dumper($_);
    }
    print "\n***\n--number of elements: ", scalar @{ $result->MetricAlarms }, "\n";
    return $result;
}