#!/usr/bin/perl -w

use 5.034;

# Put the data interpolated in the empty fields

my ($begin, $end, $n) = (20, 80, 33);

my @list = interpolate ($begin, $end, $n);

say $_ for @list;

exit 2;


sub interpolate {
    my ($b, $e, $n) = @_;
    my $incr = ($e - $b) / $n;
    my @r;
    $r[0] = $b;
    for my $i (1 .. $n){
	$r[$i] = $b + $incr * $i;
    }
    if ($r[-1] != $e){
	say $r[-1];
	exit -1;
    }
    return @r;
}