sub { 


my ($cgi, $session,$product,$tags,$itemmaxtemp,$itemID, $incomingdata);

#my @incomingdata = @_ ;
#my @incomingdata = $_[0];
#my @incomingdata = (@_);
#my @incomingdata = $_;    
my $incomingdata =  split /\Q},{/, $_[0];