use CGI qw(:standard);
my $input_item = param('item') || 0;
my $subtotal;
my $item_name;
if(exists $ITEMS{$input_item}) {
   $subtotal = $input_item;
   $item_name = $ITEMS{$input_item};
}