初学Perl，关于带数据结构的数据处理问题

Schumacher002

DATA1中是对变量的定义，DATA2是对变量的赋值
__DATA1__
{
        uint8_t                         un8_brightness;
        uint8_t                         un8_contrast;
        uint8_t                         un8_saturation;
        uint8_t                         un8_sharpness;
        int8_t                         n8_hue;       
        uint8_t                         un8_color_warmth;
        uint8_t                         un8_reserved[2];
}
__DATA2__
50,50,50,50,0,0,{0,0}

现需要查看赋值的结构是否与变量的结构相匹配，如果匹配则将DATA2中数据输出（输出时只需要输出数字）。

对于DATA2我能写出的代码是： @a=/[0-9]+,?/g ，但是这样结构应该已经被破坏，然后我对于@a数组的内部结构也不清楚。

还望各位大虾不吝赐教。