use Data::Dumper;

my $first_level_key = 1;
my @second_level_keys = (2,3,4,5,6,2,7,8);
my %hash;

$hash{$first_level_key}{$_}++
  for @second_level_keys;

print Dumper \%hash;