...

my %tasks = (
              day   => [],
              night => [],
              ip    => []
             );

...

foreach my $task ( keys %tasks )
{
  ...

  push @{$tasks{$task}},\%hash;  
}