if (defined $limit and $limit > @subs) {
    @subs = @subs[0 .. $limit - 1];
}