use strict;
use bigint;

my $good = 0;
my $i = 1;
my $j = 1;
my $n = 3;
while (! $good)
{
  my $k = $i + $j;
  my $f = substr($k,0,9);
  if ($f =~ /1/ && $f =~ /2/ && $f =~ /3/ && $f =~ /4/ && $f =~ /5/ && $f =~ /6/ && $f =~ /7/ && $f =~ /8/ && $f =~ /9/)
  {
    my $l = substr($k,-9);
    print "$n\n";
    if ($l =~ /1/ && $l =~ /2/ && $l =~ /3/ && $l =~ /4/ && $l =~ /5/ && $l =~ /6/ && $l =~ /7/ && $l =~ /8/ && $l =~ /9/)
    {
      print "Finished!\n";
      $good = 1;
    }
  }
  $n++;
  $i = $j;
  $j = $k;
}