foreach my $day (@days) { my $day_data = $self->{cell_format}[$day]; print STDERR "Changing hash $day_data for day $day!\n"; @$day_data{keys %$format} = values %$format; }