use Tk;

$top = tkinit;
$f = Frame::new($top);
foreach ("one", "two", "three") {
    tkpack Label::new($f, "-text" => $_);
}
tkpack $f;
tkmainloop;