use Chemistry::MolecularMass;
my $mm = Chemistry::MolecularMass::->new();
$mm->replace_elements(H => 0);
my $no_H_mass = $mm->calc_mass($your_formula);