Select Code to Download

    my $mult=chop($mcap);
 my $dec=$mcap-int($mcap);
...
  $mcap *= $multiplier{$suf};
}
print "multiplier is $mult and decimal portion is $dec and mcap is $mc
+ap\n";

multiplier is B and decimal portion is 0.200000000000003 and mcap is 1
+08.2