in reply to stripping "." from amounts

You could also throw away a dot and anything following it with a regex like so:
my $item = "90.00"; (my $stripped_item = $item) =~ s/\..*//;