for my $LSS ( sort keys %map )
{
    print "LSS: $LSS\n";
    for my $LUNS ( sort keys %{ $map{$LSS} } )
    {
        print "  LUN: $LUNS LSS: $LSS\n\n";
        for my $hosts ( sort @{ $map{$LSS}{$LUNS} } )
        {
            print "     $hosts\n";
        }
        print "\n";
    }
    
}