my $coord = 'coordinate.txt';
my $dist  = 'dist.txt';

open COORD, '<', $coord or die "Couldn't read file $coord: $!";
open DIST,  '<', $dist  or die "Couldn't read file $dist: $!";

my %data;
@data{ <COORD> } = <DIST>;

for my $key ( keys %data ) {
  print  "$key  $data{$key}\n";
  }