#!/usr/bin/env perl

use strict;
use warnings;

use Tk;
use Tk::TixGrid;

my $mw = MainWindow::->new();
$mw->geometry('500x500');

my $tgrid = $mw->Scrolled(TixGrid => -scrollbars => 'se')
    ->pack(-side => 'left', -fill => 'both', -expand => 1);
$tgrid->configure(-formatcmd => sub {
    my ($type, @coords) = @_;
    $tgrid->format(grid => @coords, -bg => '#000000', -bd => 1);
    return;
});

my $dat = 'a';
my @csv = map ["Col $_", ($dat++) x 999], 1 .. 1000;

for my $c (0 .. $#csv) {
    for my $r (0 .. $#{$csv[0]}) {
        $tgrid->set($c, $r, -itemtype => 'text', -text => $csv[$c][$r]);
    }
}

MainLoop;