my $item = "90.00";
(my $stripped_item = $item) =~ s/\..*//;