#!/usr/bin/perl
use strict;
use warnings;
use 5.014;
use Date::Simple qw/ today /;

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

my $dow = today->day_of_week;

my @in_order = map {$_ % 7} $dow .. $dow + 6;

say "localtime is: " . localtime;
say "$_ $day_text[$_]" for @in_order;

__END__
*** results of running the program
C:\Old_Data\perlp>perl t5.pl
localtime is: Wed Jul 10 16:10:33 2013
3 Wednesday
4 Thursday
5 Friday
6 Saturday
0 Sunday
1 Monday
2 Tuesday