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

##</code><code>##

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