Hash Perl

  1. Home
  2. Perl
  3. Hash
  4. Hash map creation
#!C:/Perl/Bin
%animals = (H=> 'h', S=> 's', G=> 'g');
print "$animals{'Shark'} \n\n";
foreach $creature(keys %animals)
{
     print "$creature \n";
}