Hello,

This will work but not with use strict :

#~ use strict ;
use warnings ; 
my @marctags;
my @tagdata ;

$marctags[0]='FOO' ;
$marctags[1]='BAR' ;

open $marctags[0], ">foo.txt" or die "Failed";
open $marctags[1] , ">bar.txt" or die "Failed" ;

$tagdata[0]="foo foo foo";
$tagdata[1]="bar bar bar";

for my $x (0..1)  {

print { $marctags[$x] }  $tagdata[$x] ;

}
[download]

In perldoc -f print it says :

Note that if you're storing FILEHANDLES in an array or other expression, you will have to use a block returning its value instead:

                print { $files[$i] } "stuff\n";
                print { $OK ? STDOUT : STDERR } "stuff\n";
[download]

use strict will raise a : Can't use string ("FOO") as a symbol ref while "strict refs" error that i don't know how to avoid here... So use FileHandle may be better :)