sub connectm { my ($val1,$val2) = @_; return $val1 * 10000 + $val2; } [download]
In reply to Re: zero padding by nobull in thread zero padding by zentara