#!/usr/bin/perl
use warnings;
use strict;
use Tk;

my $mw = tkinit;
my $textb = $mw->Text->pack();

my $text = 'This answer is copyright ' . chr(169);
my @array = (1..10);

$textb->insert('end',@array);  

$textb->insert('end',"\n@array\n");

$textb->insert('end',$text);
MainLoop;