use strict; use warnings; use autodie; use bignum; my ($A, $B) = do { open my $fh, '<', 'input.inp'; $fh->getlines; }; chomp($A, $B); my $x = 0.203 - ((1 - 0.203) / 100); for (1 .. 101) { $x = $x + ((1 - 0.203) / 100); my $y = $A + $x ** $B; print "$x\t$y\n"; }