Mega Code Archive

 

Categories / Perl / Hash

 

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"; }