#!/usr/bin/perl -w

use strict;
use warnings;

my $bou = 20;
my $beu = 0.1;

my $nb=$bou/$beu;
my(@bu);
$bu[0]=0;
for (my $i=1;$i<=2*$nb;$i++){

	$bu[$i]=$bu[$i-1]+$beu;	
	print "$i\t$bu[$i]\n";
}