use Data::Dumper;
for my $key (keys %{ $dec_json_obj->{item_json_array}->{REQUEST}->{Items} }) {
    print "Key: $key\n";
    print "Value: " . Dumper $dec_json_obj->{item_json_array}->{REQUEST}->{Items}->{ $key };
};