use strict;
use warnings;
use Tk;

my $mw = MainWindow->new();

foreach (qw (1 2 3 4 5) )
{
    gen_entry_object ($mw, "Entry Window $_");
}    

MainLoop;


sub gen_entry_object
{
   my $mw = shift;
   my $entry = shift;
   
   $mw->Entry(-text => "$entry" )->pack;
}