$ cat MyModule.pm
package MyModule;

use strict;

my @things = (
        'thing1'           ,
        'thing2'           ,
        'thing3'        ,
);

sub is_thing {
   my $self = shift;
   my $t    = $self->{'thing'};

   return grep /^$t$/, $things; 
}
...
1;