#!/usr/local/bin/perl

use 5.010;

my $a = [];
my $m = 3;
for my $i (1..10) {
    push @$a, $i;

    splice @$a, 0, -$m;

    say join(',',@$a);
}