Массив дескрипторов файлов

Я хотел выбрать, какие данные помещать в какой файл в зависимости от индекса. Тем не менее, я, кажется, застрял со следующим.

Я создал файлы, используя массив дескрипторов файлов:

my @file_h;
my $file;
foreach $file (0..11)
{
    $file_h[$file]= new IT::File ">seq.$file.fastq";
}

$file= index;
print $file_h[$file] "$record_r1[0]$record_r1[1]$record_r1[2]$record_r1[3]\n";

Однако по какой-то причине я получаю сообщение об ошибке в последней строке. Помогите кто-нибудь....?