use strict;
use warnings;

my @arr = qw{ 1 1 0 2 0 1 3 0 0 4 1 1 };

sub {
        local $" = q{,};
        print qq{@{ [ map shift, 1 .. 3 ] }\n} while @_;
    }->( @arr );

print qq{@arr\n};

##</code><code>##

1,1,0
2,0,1
3,0,0
4,1,1
1 1 0 2 0 1 3 0 0 4 1 1

##</code><code>##

use strict;
use warnings;

my @arr = qw{ 1 1 0 2 0 1 3 0 0 4 1 1 5 7 };

sub {
        local $" = q{,};
        print qq{@{ [ grep defined, map shift, 1 .. 3 ] }\n} while @_;
    }->( @arr );

print qq{@arr\n};

##</code><code>##

1,1,0
2,0,1
3,0,0
4,1,1
5,7
1 1 0 2 0 1 3 0 0 4 1 1 5 7

##</code><code>##

use strict;
use warnings;

my @arr = qw{ 1 1 0 2 0 1 3 0 0 4 1 1 5 7 };

sub {
        local( $,, $\ ) = ( q{,}, qq{\n} );
        print grep defined, map shift, 1 .. 3 while @_;
    }->( @arr );