#!/usr/bin/perl -T

use strict;
use warnings;

my (@snp_bins, %data);

open my $in_file, "<", "./dnata";

while (<$in_file>) {
    chomp;
    
 if ($. == 1 ) {   # line number
   
  my ( $placeholder, @coords ) = split /,/;
  
  @snp_bins = map int( $_ / 100_000 ), @coords;
  
  next; 
}


 if ($. >= 2){
   my ( $id, @snpspairs ) = split /,/;
    foreach my $oasis (@snp_bins){  
       my $os = $oasis;
 	      @{ $data{$id}[$os] } = @snpspairs;
	      $os -= 1;
 
  unless ( defined( @{ $data{$id}[$os] } ) ){
   
   until( ( defined( @{ $data{$id}[$os] } ) ) ||( $os == -1 ) ){
     @{ $data{$id}[$os] } = '1 1,' x 100 ;  
        # do x 10 for readability on output!!
	 $os--;
         next if ($os == -1);
       }

     }
   
    }
  }
}

foreach my $k (keys %data){
  print $k," :     ",@{ $data{$k} }->[0],$/; 
  print $k," 0:    ",@{ $data{$k}->[0] },$/; 
  print $k," 161:  ",@{ $data{$k}->[161] },$/; 
  print $k," 162:  ",join (',',@{ $data{$k}->[162]}),$/; 
  print $k," 162:5 ",@{ $data{$k}->[162]}[5],$/;       
}