#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

my $infile = '/media/Docs/Scripts/Perl/Putty/TEST.csv';
open (CSVFILE, $infile) || die ("Could not open $infile! $!");

my @final;

while ( my $line = <CSVFILE> ) {
     $line =~ tr/"\r\n//d;
     my @cleanline = split /,/, $line;
     my ( undef, @prefinal ) = split /\\/, $cleanline[ 1 ];
     push @final, [ @prefinal, @cleanline[ 0, 3 ] ];
}
close $infile;

my %hash;
foreach my $leaf (@final) {
   my $ptr = \%hash;
   foreach my $i ( 0 .. $#$leaf - 1 ) {
     my $node = $leaf->[$i];
     if( $i != $#$leaf - 1 ) {
       $ptr->{$node} = {}
         unless( exists $ptr->{$node} );
       $ptr = $ptr->{$node};
     } else {
       $ptr->{$node} = $leaf->[$i + 1];
     }
   }
}

print qq(<SESSION>\n);
foreach my $k1 (sort keys %hash)
{
    print qq(  <$k1>\n);
    foreach my $k2 (sort keys %{$hash{$k1}})
    {
        print qq(    <$k2>\n);
        foreach my $k3 (sort keys %{$hash{$k1}{$k2}})
        {
            print qq(      <$k3>\n);
            print qq(        $hash{$k1}{$k2}{$k3}\n);
            print qq(      </$k3>\n);
        }
        print qq(    </$k2>\n);
    }
    print qq(  </$k1>\n);
}
print qq(</SESSION>\n);

exit(0);

##</code><code>##

"Genview-EMS","Sessions\NOC-CO\Servers","","172.16.19.254"
"Mayberry (external)","Sessions\NOC-CO\Servers","","216.196.75.8"
"Mayberry (internall)","Sessions\NOC-CO\Servers","","172.16.18.103"
"OPIE2 (SUN NTP SERVER)","Sessions\NOC-CO\Servers","","172.16.18.102"
"10008PKRV_L","Sessions\NOC-INT\Core\Rotuers\Console","","donp:7001@10.10.17.68"
"10008PKRV_R","Sessions\NOC-INT\Core\Rotuers\Console","","donp:7002@10.10.17.68"
"6509PKRV_L","Sessions\NOC-INT\Core\Rotuers\Console","","donp:7003@10.10.17.68"
"6509PKRV_R","Sessions\NOC-INT\Core\Rotuers\Console","","donp:7004@10.10.17.68"

##</code><code>##

<SESSION>
  <NOC-CO>
    <Servers>
      <Genview-EMS>
        172.16.19.254
      </Genview-EMS>
      <Mayberry (external)>
        216.196.75.8
      </Mayberry (external)>
      <Mayberry (internall)>
        172.16.18.103
      </Mayberry (internall)>
      <OPIE2 (SUN NTP SERVER)>
        172.16.18.102
      </OPIE2 (SUN NTP SERVER)>
      <co-gateway>
        10.70.64.33
      </co-gateway>
    </Servers>
  </NOC-CO>
  <NOC-INT>
    <Core>
      <Rotuers>
        HASH(0x2100ec8)
      </Rotuers>
    </Core>
  </NOC-INT>
</SESSION>