my $layers = $data->{Capabilities}->{Layer};
for my $layer ( ref $layers eq 'ARRAY' ? @$layers : ( $layers ) ) {
    # do something to each Layer
}