Select Code to Download

        %animals_hash = (
            $animal => $sums,
        );

    $animals_hash{$animal} = $sums;

use warnings;
use strict;
...
1074 BIRD
605 CAT
850 FISH

$VAR1 = {
          'BIRD' => '1074',
...
          'FISH' => '850'
        };