my $i;
my @array;
for $i ( 0..150 ) {
	$array[$i][0] = $i;
	$array[$i][1] = $array[$i-1][1] + 2;
	printf "%s\t%s\n", $array[$i][0], $array[$i][1] / 10;
}