sub cog_class (\@$) {
    my $name = pop;
    print "NAME $name\n";
    for (@{ $_[0] }) {  # Note the Perl-style c<for> loop!!
        # BLAH BLAH
    }
}