[perl]Hash Array(Associative Array)

#!/usr/bin/perl
#2011/02/24
#Hash Array(Associative Array)：
#ref http://ind.ntou.edu.tw/~dada/cgi/Perlsynx.htm#hash
# 相關陣列是以 % 符號開頭的。
#my %hash;

# => 這個符號是Perl5新增的，是為了相關陣列量身定做的，
# 因為索引和元素值都是純量，若使用 => 這個符號，
# (索引=>元素值) 兩兩對應，就不容易發生失誤。
#my %hash=("i1"=>"aaa","i2"=>"bbb","i3"=>"ccc");

# 上面這行的效果和下面這行是一樣的。
#my %hash=("i1","aaa","i2","bbb","i3","ccc");

# 下面是存取每個元素的方法，注意是用大括號把索引括起來哦。
# 習慣上索引值用單引號、元素值用雙引號括起來。
# $hash{'i1'}="aaa"; $hash{'i2'}="bbb"; $hash{'i3'}="ccc";
my %hash=("i1"=>"aaa","i2"=>"bbb","i3"=>"ccc");

foreach $key (sort keys %hash){
        print "$hash{$key}\n";
}
#foreach $value (values %hash)
#while(($key,$value)=each %has