如果数组小于N，我不希望在返回值中有一堆undef。
@last_n = @source[-$n..-1];
如果你不需要undefs，那么：
@last_n = ($n >= @source) ? @source : @source[-$n..-1];
