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