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

my $i;
my @array;
for $i ( 0..150 ) {
	$array[$i][0] = $i;
	$array[$i][1] = $array[$i-1][1] + 0.2;
	print "$array[$i][0]\t$array[$i][1]\n";
}

exit;

##</code><code>##

.... some lines
148	29.7999999999999
149	29.9999999999999
150	30.1999999999999