Select Code to Download

use constant MIN => 4;
my $delta = MIN-1;
...
  map  { join '', $_ .. $_+$delta } 0 .. (9-$delta)
  ;
...