#!/usr/bin/perl
use strict;
use warnings;
use constant {KNOWN => 1, UNKNOWN => 0};

my $test;
$test -> {'RecordType'} = UNKNOWN;

#case 1
if($test ->{'RecordType'}){ # if $tset->{'RecordType'} == any 'true' value, i.e 1
    print "case1 is known\n";
}
else {
    print "case1 is unknown\n"; 
}

#case 2
if($test ->{'RecordType'} == KNOWN){ # if $tset->{'RecordType'} == 1
    print "case2 is known\n";
}
else {
    print "case2 is unknown\n";
}

##</code><code>##

case1 is unknown
case2 is unknown