in reply to quickly create reference to boring hash.

my $hashref;

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

[download]
Perl is environmentally friendly - it saves trees

In Section Seekers of Perl Wisdom