Select Code to Download

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

sub partition (&$@)
{
...
}

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