my %lookup; $lookup{ $_ } = [ ( 0 ) x 24 ] for ( qw( site1 site2 site3 ) );