in reply to building a complex data structure

my @sites = qw(site1 site2);
my %lookup;

foreach (@sites) {
  foreach my $h (0 .. 23) {
    $lookup{$_}{$h} = 0;
  }
}

[download]
--
<http://dave.org.uk>

"The first rule of Perl club is you do not talk about Perl club."
-- Chip Salzenberg

In Section Seekers of Perl Wisdom