# then go thorough $hash_F2_1 and that has the key (origin)
# and make a multivalue hash as follows:
my %hash_F2_3;
for my $k ( sort keys %hash_F2_1 ) {
    #print RESULTS "$k\t$hash_F2_1{ $k }\n";
    @{ $hash_F2_3{ $k } } = 1 .. max @{ $hash_F2_1{ $k } };
    # this hash (%hash_F2_3) is the hash of origins and PIPs from 1 to max
    }