Select Code to Download

my %items;

while (my ($item, $cost, $number, $value) = $sth->fetchrow_array())
...
    $items{ $item }{ number } += $number;
    $items{ $item }{ value }  += $value;
}