# left-pad with zeros, total length of 21
my $checknum = sprintf("%021d", $source);