my ($atom_nr, $elmnt_name, $atom_weight) = @{$periodic_table{$chem_symbol}}{qw /atom_num name weight/};