my $anzahl = $ARGV[0] || 19;
my $max    = $ARGV[1] || 10;

my $step   = ($anzahl-1) / ($max-1);
my $pos    = 1;

if ( $anzahl <= $max ) { print "$_\n" for 1 .. $max; exit }

for ( 1 .. $max ) {
    my $pick = int $pos;
    print "$pick\n";
    $pos += $step;
}