if( $vartocheck eq lc($firstchar) ) {
    ++$foo;
  }