#~ 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] ;

}

##</code><code>##

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