$atom1a = Molecule::Atom->new(O);
$atom1b = Molecule::Atom->new(X);
$atom1c = Molecule::Atom->new(Y);
$atom2a = Molecule::Atom->new(Z);


$atom1a->add_verlet($atom1c,$atom1b);
$atom1a->add_verlet($atom2a);
$atom1a->print_verlet();