In this case, the %lookup_id hash is unnecessary: you never have to find a row by id, but just to scan them all.

A simple foreach is enough:

foreach my $ref (@rows) {
    push @{ $lookup_fur_and_legs{$ref->{id}} }, $ref;
}
[download]