use strict;
use warnings;

my %PAGES = ();
my @path = ( ###get list input from html file into array
[["Home"],"\"Home.html\":\"\""],

[["About"],"\"About.html\":\"\""],

[["Products"],"\"Products.html\":\"\""],

[["Solutions"],"\"Solutions.html\":\"\""],

[["Services"],"\"Services.html\":\"pass\""],

[["Services","Subpage1"],"\"Services_Subpage1.html\":\"\""],

[["Services","Subpage2"],"\"Services_Subpage2.html\":\"\""],

[["Support"],"\"Support.html\":\"pass\""],

[["News-and-Media"],"\"News-and-Media.html\":\"\""],

[["Partners"],"\"Partners.html\":\"\""],

[["Partners","Subpage1"],"\"Partners_Subpage1.html\":\"\""],

[["Partners","Subpage1","Page1"],"\"Partners_Subpage1_Page1.html\":\"\""],

[["Partners","Subpage1","Page1","First"],"\"Partners_Subpage1_Page1_First.html\":\"\""],

[["Partners","Subpage1","Page1","Second"],"\"Partners_Subpage1_Page1_Second.html\":\"\""],

[["Partners","Subpage1","Page2"],"\"Partners_Subpage1_Page2.html\":\"\""],

[["Partners","Subpage1","Page3"],"\"Partners_Subpage1_Page3.html\":\"\""],

[["Partners","Subpage2"],"\"Partners_Subpage2.html\":\"\""],
[["Partners","Subpage2","Page1"],"\"Partners_Subpage2_Page1.html\":\"\""],

[["Partners","Subpage2","Page1","First2"],"\"Partners_Subpage2_Page1_First2.html\":\"\""],

[["Partners","Subpage2","Page1","Second2"],"\"Partners_Subpage2_Page1_Second2.html\":\"\""],

[["Blog2"],"\"http://www.etc.uk/index.html\":\"\""],

[["Contact-Us"],"\"Contact-Us.html\":\"\""],

[["Privacy"],"\"Privacy.html\":\"hid\""],

[["Terms"],"\"Terms.html\":\"hid\""],

[["Site-Map"],"\"Site-Map.html\":\"hid\""]
);


my $out = "{ \"Site-Map.html\":{ ";

my %PAGES = ();
my @SET = ();
my @temp = ();
my $c = 0;

for my $i(0..$#path){

if( !$PAGES{$path[$i][0][0]} ){$PAGES{$path[$i][0][0]} = [$i];}

if( $#{$path[$i][0]} == 0 ){
push @{ $PAGES{$path[$i][0][0]} },"\"$path[$i][0][0]\":{ ".$path[$i][1]; #%hh

} elsif( $#{$path[$i][0]} == 1 ){ 
$PAGES{$path[$i][0][0]}[2]{$path[$i][0][1]} = [ $i,"\"$path[$i][0][1]\":{ ".$path[$i][1] ];

} elsif( $#{$path[$i][0]} == 2 ){  
$PAGES{$path[$i][0][0]}[2]{$path[$i][0][1]}[2]{$path[$i][0][2]} = [ $i,"\"$path[$i][0][2]\":{ ".$path[$i][1] ];

} elsif( $#{$path[$i][0]} == 3 ){ 
$PAGES{$path[$i][0][0]}[2]{$path[$i][0][1]}[2]{$path[$i][0][2]}[2]{$path[$i][0][3]} = [ $i,"\"$path[$i][0][3]\":{ ".$path[$i][1] ];

} else {
#descend to madness
}

}

foreach my $s( sort { $PAGES{$a}[0] <=> $PAGES{$b}[0] } keys %PAGES ){
$out.= $PAGES{$s}[1];

if( $PAGES{$s}[2] ){
my @s1 = ();
foreach my $t( sort { $PAGES{$s}[2]{$a}[0] <=> $PAGES{$s}[2]{$b}[0] } keys %{ $PAGES{$s}[2] } ){
push @s1,$PAGES{$s}[2]{$t}[1];

if( $PAGES{$s}[2]{$t}[2] ){
my @s2 = ();
my $o2 = "";
foreach my $u( sort { $PAGES{$s}[2]{$t}[2]{$a}[0] <=> $PAGES{$s}[2]{$t}[2]{$b}[0] } keys %{ $PAGES{$s}[2]{$t}[2] } ){
push @s2,$PAGES{$s}[2]{$t}[2]{$u}[1];

if( $PAGES{$s}[2]{$t}[2]{$u}[2] ){
my @s3 = ();
my $o3 = "";
foreach my $v( sort { $PAGES{$s}[2]{$t}[2]{$u}[2]{$a}[0] <=> $PAGES{$s}[2]{$t}[2]{$u}[2]{$b}[0] } keys %{ $PAGES{$s}[2]{$t}[2]{$u}[2] } ){
push @s3,$PAGES{$s}[2]{$t}[2]{$u}[2]{$v}[1];
}
if($s3[0]){$o3 = join " },",@s3;$o3.= " }";$s2[-1].= ",".$o3;}
}

}
if($s2[0]){$o2 = join " },",@s2;$o2.= " }";$s1[-1].= ",".$o2;}
}

}
if($s1[0]){$out.= ",".(join " },",@s1)." } },";}
} else {
$out.= " },";
}

}

$out =~ s/,$//;
$out.= " } }";

print $out;