sub querryDatabase() {
   my($self, $inputData) = @_;
   ...