如何用perl提取一个.h文件里的数据，并将数据放到两个数组里?

caining062

#!/usr/bin/perl
use warnings;
use strict;

my @r;
my %h;
my $flag = 0;
while(<DATA>)
{
    chomp;
    if(/\/\//)
    {
        $flag = 1;
}
    if(/}/)
    {
        $flag = 0;
    }
    push @r,$1 if /\/\/(\w+)/;
    if($flag && !($_=~/\/\/(\w+)/))
    {
        $h{$1} .= $_;
   }
}
print $h{$_},"\n" for @r;



__DATA__
/*  File Name:  data.h */
UC D1[] =
    {
        //D1P
0,6,13,123,0,32,4,81,
3,109,0,23,5,17,32,12,
    };
UC D2[] =
    {
        //D2P
127,107,127,132,127,127,111,127,
127,125,127,127,127,127,127,127,
    };