while(my $colref = $csv->getline ($csv_fh))
   {
      if (scalar(@$colref) =~ /^#/) {
		last;
		}
	  if (scalar(@$colref) =~ /^s+$/) {
		last;
		}
	  
	  $output_hash{shift @{$colref}} = $colref;
   }