my @t;

T: while( my $line = <GSE> ) {

  $line =~ s/[\r\n]//g;
  @t = split(/\t/, $ligne);
  
  if( $. == 1 ) {
        
    shift(@t);
    @samples = @t;
    next T;
  
  }

  @t = ();