perl拆分一个文件为若干小文件

如下，每9000行存入一个新文件，新文件数量不限。

注意1：用变量$fh作为文件句柄名，本身就能被改变，不用更多折腾了。

注意2：使用变量$fh作为文件句柄进行输出（print）时，开启use strict会报错。

#! /usr/bin/perl
use warnings;
#use strict;

my $j;
my $file = 1;
my $fh = 'B1';
open $fh, ">>", "ZmBlastIDList_1.txt" or die;
while (<>) {
	$j++;
	if ($j > 9000) {
		$file++;
		$j = 1;
		$fh = 'B'.$file;
		open $fh, ">>", "ZmBlastIDList_$file.txt" or die;
	}
	print $fh "$_";
}