#!/usr/bin/perl -w
use strict;
my %elms;
while(<DATA>) {
	chomp;
	/^(\w+)\s+(\w+)\s+(\S+)$/;
	my ($elm,$name,$neg) = ($1,$2,$3);
  warn sprintf "Elm: % 3s   Pauling Neg Num: %03.2f   Name: %s\n",
	  $elm, $neg, $name;
  $elms{$elm} = $neg;
}

my $file = shift;
warn "Working on file: $file\n";
open FILE, "<$file" or die "Error opening file $file  $!\n";
my $line;
while($line = <FILE>) {
  if($line =~ /^(?:(?:\S+),)+\S+$/) {
		chomp $line;
		my @elm    = split /,/,$line;
		my $name   = shift @elm;
		my $symbol = shift @elm;
		my $y      = pop @elm;
		my $x      = pop @elm;
		warn "Elm: $name  Sym: $symbol  $x,$y Exists: ", 
			defined($elms{$symbol}) ? $elms{$symbol} : 'n/a'
		  ,"\n";
		my $pauling = defined($elms{$symbol}) ? $elms{$symbol} : 'n/a';
	  $line = join(',',$name,$symbol,@elm,$pauling,$x,$y,"\n");
	}
	print $line;
}
close FILE;
exit 0;

__END__
H hydrogen 2.20
He helium 0.0
Li lithium 0.98
Be beryllium 1.57
B boron 2.04
C carbon 2.55
N nitrogen 3.04
O oxygen 3.44
F fluorine 3.98
Ne neon 0.0
Na sodium 0.93
Mg magnesium 1.31
Al aluminum 1.61
Si silicon 1.90
P phosphorus 2.19
S sulfer 2.58
Cl chlorine 3.16
Ar argon 0.0
K potassium 0.82
Ca calcium 1.00
Sc scandium 1.36
Ti titanium 1.54
V vanadium 1.63
Cr chromium 1.66
Mn manganese 1.55
Fe iron 1.83
Co cobalt 1.88
Ni nickel 1.91
Cu copper 1.90
Zn zinc 1.65
Ga gallium 1.81
Ge germanium 2.01
As arsenic 2.18
Se selenium 2.55
Br bromine 2.96
Kr krypton 0.0
Rb rubidium 0.82
Sr strontium 0.95
Y yttrium 1.22
Zr zirconium 1.33
Nb niobium 1.6
Mo molybdenum 2.16
Tc technetium 1.9
Ru ruthenium 2.2
Rh rhodium 2.28
Pd palladium 2.20
Ag silver 1.93
Cd cadmium 1.69
In indium 1.78
Sn tin 1.96
Sb antimony 2.05
Te tellurium 2.1
I iodine 2.66
Xe xenon 0.0
Cs cesium 0.79
Ba barium 0.89
La lanthanum 1.10
Ce cerium 1.12
Pr praseodymium 1.13
Nd neodymium 1.14
Pm promethium 0.0
Sm samarium 1.17
Eu europium 0.0
Gd gadolinium 1.20
Tb terbium 0.0
Dy dysprosium 1.22
Ho holmium 1.23
Er erbium 1.24
Tm thulium 1.25
Yb ytterbium 0.0
Lu lutetium 1.27
Hf hafnium 1.3
Ta tantalum 1.5
W tungsten 2.36
Re rhenium 1.9
Os osmium 2.2
Ir iridium 2.20
Pt platinum 2.28
Au gold 2.54
Hg mercury 2.00
Tl thallium 1.62
Pb lead 1.8
Bi bismuth 2.02
Po polonium 2.0
At astatine 2.2
Rn radon 0.0
Fr francium 0.7
Ra radium 0.9
Ac actinium 1.1
Th thorium 1.3
Pa protactinium 1.5
U uranium 1.38
Np neptunium 1.36
Pu plutonium 1.28
Am americium 1.3
Cm curium 1.3
Bk berkelium 1.3
Cf califorium 1.3
Es einsteinium 1.3
Fm fermium 1.3
Md mendelevium 1.3
No nobelium 1.3
