for my $e (@$bbData)   {
     print Dumper $e;     
     
     my $d = $e->[0]; 
       ##print Dumper $d;  
     print "Col Zero: " . $e->[0] . "  Col One: " . $e->[1] . "  Col Four: " . $e->[4] . " \n" ;
       ##print "Col Zero: " . $d  . " \n" ;
   

     #foreach $tmp (@aDim) {
     #   print $tmp
     
  }