http://www.perlmonks.org?node_id=990403


in reply to Re: populating a HoA with regexp
in thread populating a HoA with regexp

I think that

/^($pattern)/ and push @{$dfs{$1}}, $_;

is readable enough. Maybe even more readable (in a perl way) than my previous solution.