elsif(ref($ref) eq '') { 
      $sub1->('',''); 
      print 'undef'; 
      } # scalar