#! /usr/local/bin/perl
#
#-------------------------------------------------------------
#	連想配列の昇順ソート
#-------------------------------------------------------------
#

##### keys 指定の前に sort をつけます
foreach $KEY (sort keys %HASH) {
	$DATA = $HASH{$KEY};
	print "$DATA\n";
}