my $top = new MainWindow(-title => ("\u$title" . "   X") );

my $hlist = $top->Scrolled("HList",
            -header => 1,
            -columns => 7,
            -scrollbars => 'osoe',
            -width => 50,
            -selectbackground => 'darkgreen',
            )->pack(-expand => 1, -fill => 'both');
my $option = 0;
foreach (qw(jobID user state queue cpu-time memory jobName)) {
    $hlist->header('create', $option++, -text => $_);
}
 my $option = 0;
         $hlist->add($jobID);
         foreach ($jobID, $user, $state, $queue, $cpu, $mem, $name) {
             $hlist->itemCreate($jobID, $option++, -text => $_);
         }