代碼如下:
#!/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";  此處錯誤
        $fh{$_}->print( "$_/n" );
　　  #為FileHandle里的函數 或 用（my $h = $fh{$_};  print $h "$_/n"；）亦可
 }

注意：上述錯誤是由于：<>里面不是簡單標量就會被當glob，Perl 支持 <FILEHANDLE> 或者是 <$scalar> .