my ($dbh, $field_str, $where_str, $href) = shift;

         ## instead of

   my ($dbh, $field_str, $where_str, $href) = @_;