Try this: (just make a bigger number for greater sample base)

#!/usr/bin/perl
use Tk;
my $i=1;
my $mw=tkinit;

my $text = $mw->Scrolled('Text')->pack;

$mw->Button(-text=>'Get rand',
            -command =>
             sub{ for (1..100){
              my $rand = rand(10000000);
              $text->insert('end',"$rand ");
              }
           $text->insert('end',"\n\n\n");
     }
    )->pack;

MainLoop;
__END__
[download]