sub add_comment{
    my $x = shift (@_);
    my $y;
    $y = "Webserver"     if ($x =~ /server1/i);
    $y = "DMZ Server"    if ($x =~ /server2/i);
    $y = "Oracle Server" if ($x =~ /server3/i);
    return $y;
}