my @day;
my @night;
my @ip;
my $day = "someday";
my $start "some start time";
my $start "some end time";

foreach my $task((qw/day night ip/)){
 my %hash=();
 $hash{$day}{'start'}=$start;
 $hash{$day}{'end'}=$end;
 push @{$task},{%hash};
}