for my $x (0..1)  {

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

}