use Tk;
use strict;

my %params = (
              a => [
                    "blah1",
                    "hello"
                   ],
              b => [
                    "blah2",
                    "-1"
                   ]
             );

my $mw = MainWindow->new(-title => 'Play w/form');
foreach my $key (keys(%params)){
  my $entry = $mw->Entry(-textvariable=>\$params{$key}[1])->pack();
  #$entry->insert('e',$params{$key}[1]); #unnecessary insert
}

MainLoop;