my @ar=(4,1,0,9,6,7,4,0,2);

my $count=0;
my $spanne=0;
my $take=0;
my $vorgabe=3;
my @ar2;


foreach (@ar)
  {
     
 
      if ($_ <= $vorgabe-$spanne)
    {
          $take = $count;
          $spanne = $_;
                  push(@ar2,$_);

        }
        $count++;
      
    }
print $_."\n" foreach @ar2;