my (@sheet, @columns) ;
  while (my $line = <SHEET>) {
    @columns = split /\s+/, $line ;
    push @sheet, \@columns ;
  } ;