sub store_items {
   my $dbh = shift;
   use Data::Dumper;
   print Dumper $dbh;
   ...