p1825 p1875 p2543 p2809 p3182 p3186 p3419 p3485 p3486 p3487 p3488 p3489 p3490 p3492 p3647 p3648 p3674 p3877
s2809   .     .     .     .     1     .     .     .     .     .     .     .     .     .     .     .     .     .  
s3006   .     .     .     .     .     .     .     .     .     .     .     .     .     .     .     .     .     .  
s3049   .     .     .     .     .     .     .     .     .     .     .     .     .     .     .     .     .     .  
s3182   .     1     .     .     .     .     .     .     .     .     .     .     .     .     .     .     .     .  
s3186   .     .     .     1     .     .     .     .     .     .     .     .     .     .     .     .     .     .  
s3314   .     .     .     .     .     .     .     .     .     .     .     .     .     .     .     .     .     .  
s3485   .     .     .     .     .     .     .     .     1     .     .     .     .     .     .     .     .     .  
s3486   .     .     .     .     .     .     .     .     .     .     1     .     .     .     .     .     .     .  
s3487   .     .     .     .     .     .     .     .     .     .     .     .     .     .     .     .     .     1  
s3488   .     .     .     .     .     .     .     .     .     1     .     .     .     .     .     .     .     .  
s3489   .     .     .     .     .     .     .     .     .     .     .     .     1     .     .     .     .     .  
s3490   .     .     .     .     .     .     .     1     .     .     .     .     .     .     .     .     .     .  
s3492   .     .     .     .     .     .     .     .     .     .     .     .     .     .     .     .     .     .  
s3645   .     .     .     .     .     .     .     .     .     .     .     .     .     .     1     .     .     .  
s3649   .     .     .     .     .     .     1     .     .     .     .     .     .     .     .     1     .     .  
s3659   .     .     .     .     .     .     .     .     .     .     .     .     .     .     1     .     .     .  
s3674   .     .     .     .     .     .     .     .     .     .     .     1     1     .     .     .     .     .  
s3675   .     .     .     .     .     .     .     .     .     .     .     .     .     .     .     .     1     .  
s3877   .     .     .     .     .     .     1     .     .     .     .     .     .     .     .     .     .     .  

$VAR1 = {
          '3182' => {
                      '1825' => '.',
                      '3182' => '.',
                      '3877' => '.',
                      '3647' => '.',
                      '3489' => '.',
                      '3419' => '.',
                      '2809' => '.',
                      '3488' => '.',
                      '1875' => 1,
                      '2543' => '.',
                      '3492' => '.',
                      '3485' => '.',
                      '3186' => '.',
                      '3487' => '.',
                      '3648' => '.',
                      '3674' => '.',
                      '3490' => '.',
                      '3486' => '.'
                    },
...