#!/usr/bin/env perl -l

use strict;
use warnings;

use enum qw{world=1 today is nice};

print '"world today" from enum';
print for world, today;

print '"today is nice" from array';
my @indices = (today, is, nice);
print for @indices;

##</code><code>##

"world today" from enum
1
2
"today is nice" from array
2
3
4