for $x (0..6)  {

print "$marctags[$x][3] $tagdata[$x]";

  $tagdata[$x]="";

}