#!/usr/bin/perl

use strict;
use warnings;

my %hash;

$hash{KEY1} = "0";
$hash{KEY1} = "1" unless $hash{KEY1};
print "KEY1 = $hash{KEY1}\n"; # i expect KEY1 = 0

$hash{KEY1} = "FALSE";
$hash{KEY1} = "TRUE" unless $hash{KEY1};
print "KEY1 = $hash{KEY1}\n"; # i expect KEY1 = TRUE