$var = "0000000000";

substr($var, -length($ARGV[0])) = "$ARGV[0]";

print "$var\n";