#!/usr/bin/perl
use warnings;
use strict;
use Data::Dumper;
my $sgmfile= $ARGV[0];
my $key = '';
my $xline = '';
open (STDOUT, ">output.xml") or die $!;
open (FILE, "<$sgmfile") or die "Can't open $sgmfile: $!\n";
my $line = '';
my %hash = ();
my $hash = \%hash;
my @tmpA = ();
open (STDOUT, ">output.xml") or die $!;
foreach $line (<FILE>) {
   chomp $line;
   if($line =~ m/<table-wrap id=(.*?) position=(.*?)><label>(.*?)<x> <\/x><\/label><caption><p>(.*?)<\/caption><graphic xmlns:xlink=(.*?) xlink:href=(.*?)\/><\/table-wrap>/){
   my @array = $line;
   ($hash,@tmpA) = recur(\@array);
    }   else{print $line."\n";}
           }
        close FILE;

        open (XFILE, "<output.xml") or die "Can't open output.xml: $!\n";
        foreach $key (sort (keys(%hash))) {
        print $key,"\n";
        print $hash{$key},"\n";
        foreach $xline(<XFILE>){
        chomp $xline;
        if ($xline =~ m/$key/){
       print $xline,$hash{$key},"\n";
       delete $hash{$key};
       }
       else{ print $xline,"\n";}
       }
              }
       close XFILE;

sub recur($) {

    my $arrRef = $_[0];
    my @procArr = @$arrRef;
    my $assign = '';
   my @tmpArr = @procArr;

    shift(@tmpArr);

    my $arr = $procArr[0];

    if ($arr =~ m/<table-wrap id=(.*?) position=(.*?)><label>(.*?)<x> <\/x><\/label><caption><p>(.*?)<\/caption><graphic xmlns:xlink=(.*?) xlink:href=(.*?)\/><\/table-wrap>/ig) {
        $assign = $3;

        my $tmpVal = '';
        $tmpVal = "<table-wrap id=$1 position=$2><label>$3<x> <\/x><\/label><caption><p>$4<\/caption><graphic xmlns:xlink=$5 xlink:href=$6\/><\/table-wrap>";
        $hash{$assign} = $tmpVal;
        foreach $line (<FILE>) {
   chomp $line;}
                         }
                   else{}
    return (\%hash, @tmpArr);

}