Select Code to Download

($s,$n,$a)=split,$r={S,$s,N,$n,A,$a},$S{$r->{S}}=$r,$N{$r->{N}}=$r,
                                      $A{$r->{A}}=$r while <DATA>;
...
H   Hydrogen   1
He  Helium     2
<<rest of the elements go here>>