Select Code to Download

my %params = $q->Var;
for (keys(%params)) {
...
    $quantity{$1} -= $q->param($1);
  }
}