sub read_gage_header {

  my ($data, $header, @headers, $ettb_no, $year);
    
  $data = shift;
  
  #Now get ettb_no
  $header = $data->[0];
  @headers = split / /, $header;

  #NOTE: this print yields expected results
  print "HEADERS before ettb_no @headers\n" if defined ($debug); 
 
  #NOTE: this gets the proper ettb_no
  $ettb_no = $headers[4];                                        

  #Skip to get to Year
  shift @$data; 
  shift @$data;
  shift @$data;  
 
  $header = shift @$data;
  #NOTE: this gives me "Year 201"
  print "HEADER before year $header\n" if defined ($debug);       

  ... more code ...