Select Code to Download

[ 
  { 
...
    'item_qux'    => 202
  }
]

{
  '28' => {
...
            'item_bar' => 7
          }
};

sub set_stock
{
...
    my $reference = $line->reference;
    $supp->{ $supplierNumber }{ $reference } = $stockLevel;
}