sub connectm {
  my ($val1,$val2) = @_;
  return $val1 * 10000 + $val2;
}