Select Code to Download

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

if ($lastc){

$hash={1AoH=>[{h1=>{a=>undef}
              },
...
                        ],
       result=>undef
      };