in reply to Re^2: Faster indexing an array
in thread Faster indexing an array

The if(exists...) test isn't necessary and can be optimized away!

  DB<119> unshift @{ $d{key} }, 'bla'
 => 1

  DB<120> \%d
 => { key => ["bla"] }

[download]

Cheers Rolf

(addicted to the Perl Programming Language and ☆☆☆☆ :)

In Section Seekers of Perl Wisdom