my @shift;
@{shift} = ( 0, 8, 8, 7.5, 8, 8.5, 0 );

my @weekday = qw(sun mon tue wed thu fri sat);
for (0..$#shift) {
  printf "On %s I work %s hours", $weekday[$_], $shift[$_];
};