#!/usr/bin/perl
use warnings;
use strict;
use Tk;
use Tk::Text;
use Tk::Pane;

my $mw = tkinit;

my $pane = $mw->Scrolled( 'Pane', -scrollbars => 'e', )
  ->pack( -expand => 1, -fill => 'both' );
  
my %hash;

foreach my $num(1,2,3){
 $hash{$num}{'text'} = $pane->Text(
            -background => '#003366',
            -foreground => 'white',
            -width => 20,
    )->pack( -side => 'left', -fill => 'both', -expand => '1', );

$hash{$num}{'text'}->insert( 'end', "some text here");

}

my $exit_bttn = $mw->Button(
         -text      => 'Quit',
         -background => 'grey',
         -foreground => 'black',
         -relief     => 'groove',
         -command   => sub { exit }
  )->pack();

MainLoop();