Select Code to Download

use strict;
use vars qw(%IsMember);

%IsMember = ('age' => 1, 'old' => 1, 'years' => 1);

if ($IsMember{age}) { print "'age' is a member\n" };
if ($IsMember{ego}) { print "'ego' is a member\n" };