use FileHandle;
my %fh;

my @filehandlename=("A","B","C"); ##文件句柄的名字；

for my $filehandlename (@filehandlename){

　　$fh{$filehandlename}=FileHandle->new("> $filename"); ##$filename 代表输出文件的名字

　　$fh{$filehandlename}->pritn("输入的字符串")；

　　$fh{$filehandlename}->close();

}