$coord = 'coordinate.txt';  
open(COORD, $coord) || die("Couldn't read file $coord\n"); 
$dist = 'dist.txt'; 
open(DIST, $dist) || die("Couldn't read file $dist\n"); 

     @d = <DIST>;
     @c = <COORD>;
                        
     for ( $i = 0; $i <= 13; $i++ ) { 
    
 
  if ( $c[$i] != $c[$i+1] ) 
  
  {
  printf  "%d  %d\n",  $c[$i], $d[$i]; 
  }     
  
  }