#!/usr/bin/perl -w

use v5.16;
use strict;

use Digest::MD5 qw(md5_hex);

my $in = 'ckczppom';
my $num = 0;
$num++ while md5_hex("$in$num") !~ /^000000/;

say $num;

