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