Select Code to Download

sub { ### this sub works well.
...

 

sub { 
...
my $incomingdata =  split /\Q},{/, $_[0];

 

my  @partofcookie= ({name => 'ddd111',quantity => 11,price => '11',col
+our => '11red',size => '11xxl',itemID => '1111tiem'},{quantity => '2'
+,name => '222gmailoknow',price => '228',itemID => '222item'});
...