use strict;
use warnings;
use Tk;
use Data::Dumper;

my $mw = MainWindow->new();

my @entry_refs;

foreach (qw (1 2 3 4 5) )
{
    push @entry_refs, create_entry_object ($mw, "Default Value is: $_", );    
}

$mw->Button(-text => 'Print Values', -command => \&list_entries)->pack(); 

MainLoop;


sub list_entries
{
   print "\n";
   foreach my $ref (@entry_refs)
   {
      print "$$ref\n";
   }
}

sub create_entry_object
{
   my $window = shift;
   my $text_var = shift;
   
   $window->Entry(-textvar => \$text_var )->pack;
   return \$text_var;
}