MODIFIED FUNCTION:

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

    );
# print Dumper($result);
print Dumper(ref @($result->MetricAlarms));
#print Dumper(@($result->MetricAlarms));

exit;
=pod
 foreach ( @($result->MetricAlarms) ){

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

=cut
    return $result;
}