#!/usr/bin/perl;

use MyConstants qw(AUTOLOAD);
use strict;

use constant { NIL => -1 };

my @ary = qw(ene mene muh);
print join(" => ", @ary[FOO(),NIL()]),$/;
__END__
mene => muh