my $today = today;
my @names = map { ($today + $_)->strftime("%A")} 0 .. 6;

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

my $today_dow = shift @in_order;

my $today_name = shift @names;
# using a hash slice
my @today_info = @{ $normal_hrs{$today_dow} }{qw/ openorclosed open close /};
# write today's info to html

# drop down list
for my $dow (@in_order) {
	my $day_name = shift @names;
	# using a hash slice
	my @info = @{ $normal_hrs{$dow} }{qw/ openorclosed open close /};
	# write this day's info to drop down list
}