use strict;
use warnings;

my $start = 98765432;

my $start_time = time;
my $div = 1000000;
my $max_tries = ( ( $start - ( $start % $div) ) / $div ); 
my $tries;

LOOP: for (my $i = $start; $i > 0; $i--) {
  if ( $i % $div == 0 ) {
		$tries++;
		my $tries_remaining = $max_tries - $tries;	#print "tries remaining: $tries_remaining\n";
		my $seconds_per_tries = ( time() - $start_time ) / $tries;
		my $estimated_minutes_to_completion = $seconds_per_tries * $tries_remaining / 60;
		
		$estimated_minutes_to_completion = sprintf ( "%2f", $estimated_minutes_to_completion );
		
		print "On $i. Minutes required: $estimated_minutes_to_completion\n"; 
  }
  next if $i =~ /0/ or $i =~ /(\d)\d*\1/;
  $i % $_ and next LOOP for split '', $i;
  print "$i\n";
  exit;
}