foreach (@inventory) {
           print qq~
<TR>
    <TD>$_</TD>
    <TD>$inv_prices{$_}</TD>
    <TD>$inv_weights{$_}</TD>
    <TD><input type="text" size="4" name="quantity$_" ></TD>
</TR>
~;
                      }