#!/usr/bin/perl
#program name: example9.pl
#demo of hash variables
%animals= ( 'tigers', 10, 'lions', 20, 'bears', 30);
print ("the animal values are:\n");
print ("$animals{tigers}\n");
print ("$animals{lions}\n");
print ("$animals{bears}\n");