#!/usr/bin/perl

use strict;
use warnings;
use diagnostics;

my %SERVER;
my $key = 1;
$SERVER{$key}{one} = $SERVER{$key}{two} = 1;
print "$SERVER{$key}{one} == 1 && $SERVER{$key}{two} == 1\n";
if($SERVER{$key}{one} == 1 && $SERVER{$key}{two} == 1){
}

##</code><code>##

1 == 1 && 1 == 1