sub make_animal
{
    my ($sound) = @_;

    foreach my $sounds_like (keys %::animal_sounds)
    {
       if ($sound =~ /$sounds_like/)
       {
          return ($::animal_sounds{$sounds_like})->new;
       }
    }
}