use enum qw(Sun Mon Tue Wed Thu Fri Sat);

my @reminders;
$reminders[Sat] = 'Brunch with Jenny.';
$reminders[Sun] = 'Read paper.';
$reminders[Mon] = 'Despair.';