my $hashref; @{$hashref}{@array} = (['id_1']) x @array;