sub removeInventory {
my $r_inventorys = shift;
my $index = shift;
my $limit = scalar(@$r_inventorys);
print "index: $index count: $limit \n";

for (my $i = 0; $i < $limit; $i++) {
if ($$r_inventorys[$i]->{'index'} == $index) {
splice(@$r_inventorys, $i, 1);
last;
}
}
for (my $i = 0; $i < $limit; $i++) {
if ($index < $$r_inventorys[$i]->{'index'}) {
$$r_inventorys[$i]->{'index'}--;
}
}

my $dumper = new Dumpvalue;
$dumper->dumpValues($r_inventorys);

}