my $mult=chop($mcap);
 my $dec=$mcap-int($mcap);
if ($mcap =~ s/([^0-9.]+)\z//)
{
    my $suf=1;
   die if !$multiplier{$suf};
  $mcap *= $multiplier{$suf};
}
print "multiplier is $mult and decimal portion is $dec and mcap is $mcap\n";