Select Code to Download

use strict;
use warnings;
...
    print "parcel# $docs{$1} doc num $1 $2\n";
}
close $f2In;

parcel# 67890 doc num 342 data data data data data data data data
parcel# 67890 doc num 657 data data data data data data data data
...
parcel# 12345 doc num 123 data data data data data data data data
parcel# 12345 doc num 456 data data data data data data data data
parcel# 12345 doc num 789 data data data data data data data data