Filling In "The Gaps" in an Array

Select or download this

1234    5       20021201        1       0
5678    0       20021202        0       0
...
6543    5       20021202        0       0
        0       0       0       5
        0       0       0       5

Select or download this

#!/usr/bin/perl -w

...
    # print scalar(@IDS);
    print @IDS;
__END__

Select or download this

1234    5       20021201        1       0
5678    0       20021202        0       0
...
6543    5       20021202        0       0
        0       0       0       5
        0       0       0       5

Select Code to Download