print " enter a formula.\n";
chomp($form=<>);

@array = $form =~ /[A-Z][a-z]?|\d+/ig

$weight = getweight(@array);

sub getweight
    {
       my @weight =@_;
     }