$mw->Entry(-textvariable => [ sprintf "%02x", $addy[$i] ], -width => 3)
   ->pack(-side => 'left');

##</code><code>##

if ($i < 5) {
    $mw->Label(-text => ':', -width => 1)->pack(-side => 'left');
}