coordinate  distance
567         344  
1345        567
2346        78   
3456        67 
3456        789
4678        45    
5349        6
6700        124 
6700        50
8964        560

##</code><code>##

$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]; 
  }     
  
  } 


##</code><code>##

coordinate  distance
567         344  
1345        567
2346        78   
3456        67 
4678        45    
5349        6
6700        50
8964        560