my @r = partition { $_ % 3 } [], 0 .. 12;