$construct{$record->[1]}{$record->[2]} = 0;
    
foreach my $key (keys %construct) {
    $construct{$key} = [keys %{$construct{$key}}];
}

my %TEST;

while ((my $key, my $value) = each %construct) {
    my @values = @$value;
    $TEST{$key} = \@values;
}