Not a Perl answer, but most Linux/Unix systems should have /usr/bin/split which can split files based on byte counts or lines.

If you really need to use Perl, shelling out to /usr/bin/split would probably be quickest and easiest.