#!/usr/bin/perl
use strict;
use warnings;

# 816487

my $n = 3.123;
my $u = 3.678;
my $i= 0;
my (@array, $array);

for (1..10) {
	$n -= ($n * $u) * $u;
	$array[$i] = int(abs($n));
	$i++
}

for (@array) {
	print "$_ \n";
}