Select Code to Download

*******************Folder North***************
Folder : North
...
         VM : host42307
         VM : host42308

open (FILE, 'data.txt') || die "Unable to open file";
while (<FILE>) {
...
            push @{$hash{$host}}, $guest;
        }
}