#!/usr/bin/perl -w
use strict;
use warnings;
use FileHandle;
my %fh;
my @array = (1..10);
for(1..5){
??????? open $fh{$_},">$_.txt" or die;
}
for(1..5){
??????? #print $fh{$_} "$_/n";? 此處錯(cuò)誤
??????? $fh{$_}->print( "$_/n" );
　　? #為FileHandle里的函數(shù) 或 用（my $h = $fh{$_};? print $h "$_/n"；）亦可
?}