use Tkx;
...
for ($Item=1;$Item<$ItemNumber;$Item++) {
Tkx::ttk__button(".f1f.gobutton[$Item]", -text => "Fix", -command => sub {&DoFix($Item);} );
Tkx::grid(".f1f.gobutton[$Item]", -row => $Item, -column => 3,-sticky => "we",-columnspan=>1);
}

# Error whenever button pushed, it passes $ItemNumber not the original value for each $Item as it passed thru the loop