View source for Yurttas/PL/SL/perl/F/07/02/00/h 01.pl

<syntaxhighlight lang="perl" line start="1" enclose="div"># 
#  Copyright(C) 1998
#  All Rights Reserved. Salih Yurttas, ZCubes, BitsOfCode Software Systems, Inc..
#
#  Permission from use, copy, modify, and distribute this
#  software and its documentation for EDUCATIONAL purposes
#  and without fee is hereby granted provided that this
#  copyright notice appears in all copies.
#
#  date   : January 1, 1998.
#  author : Salih Yurttas.
#
#  h_01.pl
#


use warnings;

# create hash
%h = (apple => 2, peach => 4, orange => 1);

# add one
$h{strawberry} = 8;

# print hash
foreach $item (keys%h) {
  print $item . " ";
  print "\n";
}
</syntaxhighlight>