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/\..*//;
[download]