No need for a test on each iteration:

my @children   = $category->children;
my $last_child = pop @children;

foreach $child (@children) {
    handle_not_last_child($child);
}

handle_last_child($last_child);
[download]