0;9.5;17.5
1;9.5;17.5
2;9.5;17.5
3;9.5;17.5
4;9.5;17.5
5;9.5;17.5
6;9.5;17.5

sub {
my $hours = shift;
my $days = '0|Monday,1|Tuesday,2|Wednesday,3|Thursday,4|Friday,5|Saturday,6|Sunday';
my $starts = '0.0|00:00,0.5|00:30,1.0|1:00,1.5|1:30,2.0|2:00,2.5|2:30,3.0|3:00,3.5|3:30,4.0|4:00,4.5|4:30,5.0|5:00,5.5|5:30,6.0|6:00,6.5|6:30';
my $ends = '0.0|00:00,0.5|00:30,1.0|1:00,1.5|1:30,2.0|2:00,2.5|2:30,3.0|3:00,3.5|3:30,4.0|4:00,4.5|4:30,5.0|5:00,5.5|5:30,6.0|6:00,6.5|6:30';

my ($day, $dayname, $start_time, $end_time, $parsed, @output);

for (split "\r\n", $hours) {
($day,$start_time,$end_time) = split(/;/,$_);
for (split "|", $days) {
my ($input, $output) = $_ =~ m/^(.+)|\s*(.*)\s*$/;
$dayname = $day;
$dayname =~ s/\Q$input\E/$output/g;
}

$parsed->{day_name} = $dayname;
$parsed->{day_value} = $day;
push (@output, $parsed);
}
return { hours_loop => \@output };
}