Depending on your needs, there is also Tk::DataTree

#!/usr/bin/perl
use warnings;
use strict;
use Tk;
use Tk::DataTree;

my $mw = new MainWindow;
my $dt = $mw->DataTree->pack();

$dt->data( { foo => 1, bar => [2, 3] } );

MainLoop;
[download]