Select Code to Download

use strict;
use warnings;
...
    }->( @arr );

print qq{@arr\n};

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

use strict;
use warnings;
...
    }->( @arr );

print qq{@arr\n};

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

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