sub nest {
    my $tagname = $_[0];
    my $attributes = @_ == 2 ? $_[1] : [@_[1 .. $#_]];
    ...
}