my $obj = ObjectStuff->load(objid);
my $status = $obj->getStatus();

my @validStatus = split(',', $csv_of_active_status);

unless ( $status ~~ @validStatus ) {
  #spew warnings;
  exit;
}


##</code><code>##

#!/usr/bin/perl

use Object::Module;
use Data::Dumper;

my $obj = Object::Module::load({id => 'OMGWTFBBQ'});

die unless $obj;

my @goodStatus = ...

my $mystery = $obj->get_status();

use Devel::Peek;

print "mystery Dump\n--------\n";
print Dumper($mystery);
print "\nmystery Peek\n--------\n";
Dump($mystery);

my $empty = '';
print "\nEmpty Dump\n--------\n";
print Dumper($empty);
print "\nEmpty Peek\n--------\n";
Dump($empty);

if ( defined $mystery ) {
    print "mystery defined\n";
}
if ( defined $empty ) {
    print "Empty defined\n";
}

print "\nArray Dump\n--------\n";
print Dumper(@goodStatus);

if( ($mystery) ~~ @goodStatus ) {
    print "Status is valid!\n";
}
if( ($empty) ~~ @goodStatus ) {
    print "Empty is valid!\n";
}


##</code><code>##

mystery Dump
--------
$VAR1 = '';

mystery Peek
--------
SV = PVNV(0xa5317e4) at 0x982ec48
  REFCNT = 1
  FLAGS = (PADMY,IOK,NOK,POK,pIOK,pNOK,pPOK)
  IV = 0
  NV = 0
  PV = 0x9b36a68 ""\0
  CUR = 0
  LEN = 4

Empty Dump
--------
$VAR1 = '';

Empty Peek
--------
SV = PV(0xa50ea88) at 0x9d6e6f0
  REFCNT = 1
  FLAGS = (PADMY,POK,pPOK)
  PV = 0xa48f740 ""\0
  CUR = 0
  LEN = 4
mystery defined
Empty defined

Array Dump
--------
$VAR1 = '128';
$VAR2 = '1';
$VAR3 = '0';
$VAR4 = '-3';
Status is valid!


##</code><code>##

...
Empty defined
ASCII Equal!

Array Dump
--------
$VAR1 = '128';
$VAR2 = '1';
$VAR3 = '0';
$VAR4 = '-3';
Status is valid!


##</code><code>##

if ( $mystery == $empty ) {
    print "Number Equal!\n";
}

##</code><code>##

ASCII Equal!
Number Equal!

Array Dump
--------
$VAR1 = '128';
$VAR2 = '1';
$VAR3 = '0';
$VAR4 = '-3';
Status is valid!
Empty is valid!

##</code><code>##

$ perl -v

This is perl, v5.10.0 built for i486-linux-gnu-thread-multi