my @DAYS_OF_WEEK = qw(
   Sunday
   Monday
   Tuesday
   Wednesday
   Thursday
   Friday
   Saturday
);

my $dayname = $DAYS_OF_WEEK[$day];