Perl objects can be arrays, so why use hashes?
if ($self->[2] eq 'octopus') { $self->[17] = 8; $self->[4] = 3; $self->[28] = 'crab cakes'; }