#!/usr/bin/perl -w
use Tk;
use Tk::LabEntry;

$a{bar} = "foo";

$mw = MainWindow->new();
for (1..3) {
  $mw->LabEntry(-label        => "Component:",
                -width        => 5,
                -labelPack    => [ qw/-side left/ ],
                -textvariable => \$a{bar})->pack;
}

$mw->after(1000,sub{$a{bar} = "Moose!"});
MainLoop;