use 5.10.0;
use strict;
use warnings;

my $r = !1;

if (defined $r)  {
    say "Defined";
}
else  {
    say "Not defined";
}