in reply to idiom for building hash of arrays?

push @{ $hash{$key} //= [] }, $current;

(For perl versions < 5.10, ||= is functionally the same in this case because the hash value is always a reference, which is false iff it is undefined.)

In Section Seekers of Perl Wisdom