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

my ($first, $second, $steps) = @ARGV;
$steps = int $steps;

my $increment = ($second - $first) / ($steps - 1);
my @array = ($first);
for (2..$steps) {
	push @array, $first += $increment;
}
print join(", ", @array) . "\n";