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

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

my @data;
for my $i (0 .. 6) {
	push @data, {dow => $dow[$i], name => $names[$i]};	
}

my $date = shift @data;

# using a hash slice for today's info
# You have access to $date->{dow} and $date->{name}
my @today_info = @{ $normal_hrs{ $date->{dow} } }{qw/ openorclosed open close /};
# write today's info to html

# drop down list
for my $date (@data) {
	# You have access here to $date->{dow} and $date->{name}
	# using a hash slice
	my @info = 	@{ $normal_hrs{$date->{dow}} }{qw/ openorclosed open close /};
	# write this day's info to drop down list
}