my %hash = (
            pas => 'vau-vau',
            macak => 'mijau',
            krava => 'muuuuu',
            pile => 'pi-pi',
            mago => 'ia-ia'
            );
            
sub zivad {
           my $animal = shift;
           my $hash_value = $hash{$animal} || die  "no  animal";
           return $hash_value;
           }
print zivad('mago');