use Tk;
use Tk::TableMatrix::Spreadsheet;
 
my $t = $top->Scrolled('Spreadsheet',
  -rows => 21, -cols => 11, 
  -width => 6, -height => 6,
  -titlerows => 1, -titlecols => 1,
  -variable => $arrayVar,
  -selectmode => 'extended',
  -bg => 'white',
);