The following code is called pretty frequently in an application I'm working on. After executing two MySQL queries it loops through the result sets and updates a variable for each record that contains the available quantity of a given inventory item. I'm trying to figure out if there is a faster way to do what the following code does. @inventory_items ends up with around 2200 items, and the $stock_change_sth returns around 325 rows. 
    my @inventory_items_array;
    my $inventory_item;
    my %stock_current;
    my %stock_minimum;
    while ($inventory_item = $sth->fetchrow_hashref()){
        
        $stock_current{$inventory_item->{'inventory_item_id'}} = $inve
+ntory_item->{'starting_quant'};
        $stock_minimum{$inventory_item->{'inventory_item_id'}} = $inve
+ntory_item->{'starting_quant'};
        $inventory_item->{'search'} = join(',', $inventory_item->{'nam
+e'}, $inventory_item->{'description'}, $inventory_item->{'inventory_i
+tem_id'});
        
        push(@inventory_items_array, $inventory_item);
    }
    
    my $stock_change_data_ref;
    while ($stock_change_data_ref = $stock_change_sth->fetchrow_hashre
+f()){
        $stock_current{$stock_change_data_ref->{'inventory_item_id'}} 
++= $stock_change_data_ref->{'Qty_Change'};
        if ($stock_current{$stock_change_data_ref->{'inventory_item_id
+'}} < $stock_minimum{$stock_change_data_ref->{'inventory_item_id'}}){
            $stock_minimum{$stock_change_data_ref->{'inventory_item_id
+'}} = $stock_current{$stock_change_data_ref->{'inventory_item_id'}};
        }
    }
    
    foreach(@inventory_items_array){
        $_->{'rem_avail_quant'} = $stock_minimum{$_->{'inventory_item_
+id'}};
        $_->{'available'} = $_->{'rem_avail_quant'} . '/' . $_->{'inv_
+quant'};
    }

[download]

In reply to Optimizing Loop by Anonymous Monk

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.