sub store_items {
   my $dbh = shift;
   ....