$goSlot[$x] = $slot->Button( ...
		-command => sub { compute($x) },

##</code><code>##

sub compute {
    my( $slotnum ) = @_;
    print "sernum=$sernums[$slotnum], partnum=$partnums[$slotnum]\n";
}