*******************Folder North***************
Folder : North
   Folder : Lab
      Host : host42016
         VM : host42229
         VM : host42235
         VM : host42236
         VM : host42237
         VM : host42238
         VM : host42239
         VM : host42240
         VM : host42241
         VM : host42242
         VM : host42252
      Host : host42049
         VM : host42361
         VM : host42362
         VM : host42363
         VM : host42364
         VM : host42365
         VM : host42366
         VM : host42367
         VM : host42368
         VM : host42369
         VM : host42370

*******************Folder South***************
Folder : South
   Folder : Staging
      Host : host42124
         VM : host42248
         VM : host42249
         VM : host42250
         VM : host42230
         VM : host42251
         VM : host42243
         VM : host42244
         VM : host42245
         VM : host42246
         VM : host42247
      Host : host42125
         VM : host42299
         VM : host42300
         VM : host42301
         VM : host42302
         VM : host42303
         VM : host42304
         VM : host42305
         VM : host42306
         VM : host42307
         VM : host42308


##</code><code>##

open (FILE, 'data.txt') || die "Unable to open file";
while (<FILE>) {
        $line=$_;
        if ($line =~ /Folder/ || $line eq ""){
            next;
        }
        ($type,$name)=split(/:/);
        $type =~ s/^\s+//;
        $type =~ s/\s+$//;
        $name =~ s/^\s+//;
        $name =~ s/\s+$//;
        if ($type=~"Host"){
            $host=$name;
        }elsif ($type=~"VM"){
            $guest=$name;
            push @{$hash{$host}}, $guest;
        }
}