See my snippet at Format a list with commas and "and" for the core subroutine. Use an array slice as others have suggested to select a portion.

-- Randal L. Schwartz, Perl hacker