Select Code to Download

perl -F"\s+" -lane "$sec?(push $h{$F[0]},@F[2,4]):($h{$F[3]}=[@F[0..2]
+]);$sec++ if eof;END{print map{qq($_ = @{$h{$_}}\n)}sort keys %h}"   
+        mergedhash01.txt mergedhash02.txt

...
3165 = 1382 0 0 1382 0
3166 = 2869 0 0 2869 0

perl -MO=Deparse -F"\s+" -lane "$sec?(push $h{$F[0]},@F[2,4]):($h{$F[3
+]}=[@F[0..2]]);$sec++ if eof;END{print
map{qq($_ = @{$h{$_}}\n)}sort keys %h}"    mergedhash01.txt mergedhash
+02.txt
...
}
-e syntax OK