use strict;
use warnings;
use Test::More;

sub chunks {
    my ( @list ) = @_ ;
    my $count = 3;
    my $str   = "";
    while (my @cols = splice @list, 0, $count ) {
        $str .= "@cols\n";
    }
    return $str;
}

#  ========= Tests

is( chunks("a", "bb", "c", "d", "e", "f", "g", "h") =>
    <<'__CHUNK__', "Rosetta's Example" );
a bb c
d e f
g h
__CHUNK__


is( chunks() => "", "Empty" );

done_testing;