use Tk::ItemStyle;        # use itemstyle

# define the simple styles
my $rj = $hlist->ItemStyle("text", -justify => 'right');
my $cj = $hlist->ItemStyle("text", -justify => 'center');

# when calling itemCreate use a style
$hlist->itemCreate($job, $option++, -text => $cpu{$job}, -itemtype => 'text', -style => $rj);